diff --git a/scripts/checkPerlModules.pl b/scripts/checkPerlModules.pl
new file mode 100755
index 0000000..675024a
--- /dev/null
+++ b/scripts/checkPerlModules.pl
@@ -0,0 +1,52 @@
+#!/usr/bin/env perl
+use warnings;
+use strict;
+
+my $filename =
+  shift || &help;    # command line argument is perl script to evaluate
+my @modules;         # array of 'use' statements from code we are checking
+
+open( IN, $filename ) or die "couldn't open $filename for processing: $!
++\n";
+
+while (<IN>) {
+  chomp;
+  if ( (/^use/) and not( /strict/ || /warnings/ ) ) {
+    push @modules, $_;
+  }
+}
+close IN;
+my $fail = 0;
+
+for my $code (@modules) {
+  my ( undef, $library ) = split( / /, $code );    # get the module name
+  $library =~ s/;//;                               # clean up the name
+  eval $code;
+  if ($@) {
+    warn "couldn't load $library: $@", "\n";
+    $fail = 1;
+  }
+}
+
+if ($fail) {
+  exit 0;
+} else {
+  exit 1;
+}
+
+sub help
+{
+  print <<"END";
+
+checkPerlModules.pl
+
+This script finds all the "use" statements loading modules in the targ
++et perl
+file (specified as a command line argument) and attempts to load them.
+If there are problems loading the module, the error mesage returned is
++ printed.
+
+END
+  exit;
+}
+