use strict;
use Win32;
use Win32::Process;
   
sub ErrorReport{
        print Win32::FormatMessage( Win32::GetLastError() );
    }
my $ProcessObj1;
my $ProcessObj2;
Win32::Process::Create($ProcessObj1,
	$ENV{SystemRoot}."\\explorer.exe",
	"explorer.exe D:\\",
	0,
	NORMAL_PRIORITY_CLASS,
	".")|| die ErrorReport();

Win32::Process::Create($ProcessObj2,
	$ENV{SystemRoot}."\\notepad.exe",
	"notepad.exe C:\\test.txt",
	0,
	NORMAL_PRIORITY_CLASS,
	".")|| die ErrorReport();

sleep 5;
$ProcessObj1->Kill(0) or &ErrorReport;
$ProcessObj2->Kill(0) or &ErrorReport;

sleep 1;
my $pid = $ProcessObj1->GetProcessID();
system('taskkill','/PID',$pid);
print "pid:$pid\n";