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

##</code><code>##

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