Help for this page

Select Code to Download


  1. or download this
    my $returned = `test2.pl aaa bbb ccc`;
print "Got \"$returned\" from test2.pl\n";
exit;
  2. or download this
    foreach $line (@ARGV) { $input .= $line; }
if ($input ne '') { print "We received input:\n$input"; }
else { print "Error, no input received!"; }
exit;