Select Code to Download

use warnings;
use strict;
...
binmode(FH);
my $stuff = do { local $/; <FH> };
print unpack('H*', $stuff), "\n";