Select Code to Download

my $buffer;

...

while (read(INFILE, $buffer, 1) and printf("%X", ord($buffer))){};
print "\n";

my $buffer;

...
  }
  $i++;
}