#ThisScript
use IPC::Run qw( run timeout ) ;


my $CalledScript = "print qq(hello\n Argument=\@ARGV[0]\n);"; 

my $out;
my @prog = ("perl");

run \@prog, \$CalledScript, \$out;

foreach(split /\n/,$out){
   print "$_;\n";
   }