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