#! c:\perl\bin\perl

print "Hello World!";

##</code><code>##

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

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

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

##</code><code>##

Z:\test> test2.pl
Option 1:

Z:\test> type output

Z:\test>