Select Code to Download

my $file = shift;
my $enc = "UTF-16";
...
    print;
}    
close(FILE);

my $file = shift;
my $enc = "UTF-16";
...
    print encode($enc,$str);
}    
close(FILE);