5 my $ZERO = "\0" x
2048;
7 open my $fh, "<", $f; binmode $fh;
11 my $n = read $fh, $buf, 2048; last SECTOR
if $n < 2048;
13 if ($buf eq $ZERO) { $head = "---"; }
14 else { $head = unpack "H*", substr $buf, 0, 16; }
15 printf "%8d: %s\n", $i++, $head;