Select Code to Download

use strict;
use warnings;
...
print FILE unpack("H*",$data);
close FILE;

use strict;
use warnings;
...
    print unpack("H*",$_), "\n";
}
close FI;