use warnings;
use strict;

my $doItScript = $ARGV[0];

unless (my $return = do $doItScript)
{
    if ($@) { print "$doItScript: $@\n";}
    elsif (!defined($return)) { print "$doItScript: $!\n";}
    elsif (!$return) {print "could not execute $doItScript\n";}

}
print "Done with main\n";