Select Code to Download

use Win32::Process;
use strict;
...
Win32::Process::Create($ProcessObj, "c:/perl/bin/perl.exe","perl test1
+.pl", 0, DETACHED_PROCESS, ".");
my $pid = $ProcessObj->GetProcessID();
print "$pid\n";

open(FILE,">c:/tada.txt");
print FILE "hello\n";
close FILE;