my $scriptdir = File::Spec->rel2abs(dirname($doItScript)); push @INC,$scriptdir; unless (my $return = do $doItScript) { croak "could not parse $doItScript: $@" if $@; croak "could not pull in $doItScript: $!" unless defined $return; croak "could not execute $doItScript" unless $return; }