use Win32::Process;
use Win32;

sub ErrorReport{
    print Win32::FormatMessage( Win32::GetLastError() );
}

Win32::Process::Create(my $ProcessObj,
                            $^X,
                            'c:\perl\progs\garb1.pl',
                            0,
                            NORMAL_PRIORITY_CLASS,
                            ".")|| die ErrorReport();

$ProcessObj->Wait(2000);
my $pid=$ProcessObj->GetProcessID();
my $exitcode=0;
Win32::Process::KillProcess($pid, $exitcode);
print $exitcode;