Select Code to Download

my $infile = shift @ARGV;
open my $fh, "<:encoding(UTF-16)", $infile or die $!;

while (<$fh>) {
   ...