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

##</code><code>##

open PROG, "c:\\block.exe" or die $!;

...Do Stuff...

close PROG;
__END__