Select Code to Download

{
    my $input = do {
        open my $in, '<', $ARGV[1];
...
     print $out unpack 'H*', $input;
   
}