Select Code to Download

chdir $directory or die "Can't cd to $directory: $!";
opendir my $dh, '.' or die "Can't open $directory: $!";
...
}

closedir $dh;

    if ( $file =~ /^\Q$filemask\E/i )  {
        push @chk_files, $file;
        print "\n\t$file ";
    } # End of IF