Select Code to Download

use strict;
use warnings;
...
    or die "Something weird happened closing '$inf': $!";
close $out 
    or die "Failed to close '$outf', file is probably corrupted: $!";

perl -pe "BEGIN {binmode STDIN, ':encoding(utf16)'; binmode STDOUT, ':
+utf8'}"