use Win32;
use Win32::Process;

Win32::Process::Create($ProcessObj,
                       "C:\\block.exe",
                       "block",
                       0,
                       NORMAL_PRIORITY_CLASS,
                       ".")|| die ErrorReport();
# As needed:
$ProcessObj->Suspend();
$ProcessObj->Resume();
$ProcessObj->Wait(INFINITE);