Scalled down to the minimun. Only tested once to be sure it 'runs':

test1.pl

my $returned = `test2.pl aaa bbb ccc`;
print "Got \"$returned\" from test2.pl\n";
exit;
[download]

test2.pl

foreach $line (@ARGV) { $input .= $line; }
if ($input ne '') { print "We received input:\n$input"; }
else { print "Error, no input received!"; }
exit;
[download]