Select Code to Download

    open(my $fh, '<:encoding(UTF-8)', $input);
    while ($fh) {

    open my $fh, '<:encoding(UTF-8)', $input or die "Cannot open $inpu
+t $!";
    while (<$fh>) {