use strict;
my $scriptpath = '/var/local/myscripts'; # path to my scripts
my $scriptname = shift(@ARGV);

my $doscript;
# check for par exec on Win32
if( ($^O =~ /^MSWin/) && ($0 =~ /\.exe$/) ) {
    # packed pp exec
    $doscript = $scriptname;
} else {
    
    # perl
    $doscript = qq($scriptpath/$scriptname);
}

do $doscript;
die $@ if($@);

1;