Select Code to Download

        my $fname = $_;
        if (-f $fname) {
...
                }
            }
        }

        my $fname = $_;
        if (-f $fname && /\.p(l|m)$/) {
            push(@files, $File::Find::name);
        }