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