Select Code to Download

# this is the line I removed
#    ($file) = grep {-f $_ and not -l $_} map File::Spec->catfile($roo
+t, $_), readdir FH;
...
            last;
        }
    }