# in my glue script
# got the location of current interpreter
my $curr_perl;

system($curr_perl,'ugly_script.pl',@lots_of_args)==0 or die "Ouch!!";
system($curr_perl,'another_script.pl',@ugly_args)==0 or die "Oops!!";