use strict;
use Win32::Process;
my ($processObj, $pid);
Win32::Process::Create($ProcessObj,
                  "C:\\foo\\Setup.exe", "Setup.exe", 0, 
                   NORMAL_PRIORITY_CLASS,".")|| die "$!\n";
$pid = $ProcessObj->GetProcessID();

##</code><code>##

$ProcessObj->Kill($exitcode);