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";