use strict;
use warnings;
use diagnostics;
use Win32::Process;
use Win32;

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


my $ProcessObj;

Win32::Process::Create($ProcessObj,
    "C:\\windows\\system32\\notepad.exe",
    "notepad temp.txt",
    0,
    NORMAL_PRIORITY_CLASS,
    ".")|| die ErrorReport();
$ProcessObj->Suspend();
$ProcessObj->Resume();
$ProcessObj->Wait(INFINITE);