my $s = open(APP,"-|")
if ($s) {
   local @ARGV = '-h';
   do 'myscript.pl';
   exit;
}
else {
   die "Can't fork: $!" unless defined $s;
   local $/;
   my $scriptoutput = <APP>;
   close APP;
}