Help for this page
my $buffer; ... while (read(INFILE, $buffer, 1) and printf("%X", ord($buffer))){}; print "\n";
my $buffer; ... } $i++; }