#! /usr/local/bin/perl use strict; use warnings; use lib "./lib"; use ScriptRunner; my $runner = ScriptRunner->new(); # Do any necessary environmental setup here. Since this is # just a demo, there's nothing really to do. foreach my $f ( @ARGV ) { print "Running script file: $f\n"; $runner->do_script($f) }