Please note the asker is on Win32. So, similar to what's been written:

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);
[download]

Also, a quick cheat:

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

...Do Stuff...

close PROG;
__END__
[download]