Hi andyBio,

try to change these two lines:

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

as follows:

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

The main change is on the while line (the (<$fh>) part), but checking whether the program could open the file is also essential.

A few more things could be improved, but the above corrections should get you where you want.