vypis obsahu binarniho souboru

[Polak Michal]

Dobry den,

potrebuji v Perlu napsat program, ktery mi vypise obsah binarniho
souboru
Vystup by mel vypadat takto: byte1, byte2, byte3 ....., kde byte je
cislo od 0 do 255.

Napsal jsem nize uvedeny programek, a nevim, jak ze skalaru $buffer
vykuchat hodnoty
jednotlivych bytu. Je mozne, ze programek nedela to co jsem zamyslel,
anebo lze napsat 
elegantneji. Budu vdecen za jakekoliv nakopnuti....

Dekuji.

use strict;
open IN, $fileName or die "Soubor '$fileName' nenalezen !";
binmode IN;

my $buffer;
my $count = read (IN, $buffer, 32768);
while ($count) {

  #vypis obsah promenne $buffer
  $count = read (IN, $buffer, 32768);
}
close IN;


Michal Polak