#!/usr/bin/perl use strict; use warnings; use JavaScript::SpiderMonkey; my $file_name = $ARGV[0]; if (!$file_name) { print "Usage : js_checker.pl [Java Script file name]?n"; exit; } open my $fh, $file_name or die "Couldn't open $file_name: $!"; my $source; while (<$fh>) { $source .= $_; } close $fh or die "Couldn't close $file_name: $!"; my $js = JavaScript::SpiderMonkey->new(); $js->init(); my $r