Select Code to Download

use strict;
use warnings;

...
while (<$fh>){
    print "file: " . (unpack "H*", $_) . "\n";
}

mem:  68656c6c6f0a
file: 68656c6c6f0d0a