Hmmm.. you could use something like *

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;
}
[download]

But that's probably just making it too complex.

* completely untested code.