my $buffer;

open INFILE, "test.bin" or die "Can't open test.bin for reading: $!\n";
open OUTFILE, ">test.bin" or die "Can't open test.bin for writing: $!\n";
select OUTFILE;

binmode INFILE;

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