Select Code to Download

opendir(DIR, $jscriptdir) or die("Can't open $jscriptdir");
my @jsFiles = grep(/\.js$/, readdir(DIR));
...
foreach my $jsFile (@jsFiles) {
    # do whatever
}

use File::Find;
use IO::File;
...
        $fh->close();
    }
}