If all .js files are in a single directory, File::Find isn't the only option.

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

If you really want to recurse through a directory hierarcy, you can use the code below:

use File::Find;
use IO::File;

find(\&wanted, $jscriptdir);

sub wanted {
    if (/\.js$/) {
        my $fh = new IO::File($_) or die("Can't open $File::Find::dir/
+$_");
        while (<$fh>) {
            # your while here
        }
        $fh->close();
    }
}
[download]

Hope this helps, -gjb-