use Win32::Process;
    use Win32;

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

    Win32::Process::Create($ProcessObj,
                                "C:\\Perl\\bin\\perl.exe",
                                "perl Temp.pl",
                                0,
                                NORMAL_PRIORITY_CLASS,
                                ".")|| die ErrorReport();
 $state = 1;
while( <STDIN> ) 
{
    if( $state ) 
	{
        $$ProcessObj->Suspend();
        $state = 0;
    }
    else 
	{
        $$ProcessObj->Resume();
        $state = 1;
    }
}