Select Code to Download

use strict;
use warnings;
...
while ( <$fh> ) {
    print;
}

use strict;
use warnings;
...
};
my $str = decode('UTF-16', $_);
print $str;