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

Win32::Process::Create($ProcessObj,
                                "C:\\Perl\\bin\\perl.exe",
                                "perl CC4.4.pl  ",
                                1,
                                NORMAL_PRIORITY_CLASS,
                                ".")|| die ErrorReport();
$ProcessObj->Suspend();
$ProcessObj->Resume();
#$ProcessObj->Wait(INFINITE);