test2.pl
---------<br>
#! c:\perl\bin\perl.exe

$output1 = `test1.pl`;
print "Option 1: ".$output1."\n";

open(STDOUT, ">output"); # from perlfaq8
system("test1.pl");