use WIN32::Process; use WIN32; sub ErrorReport{ print Win32::FormatMessage( Win32::GetLastError() ); } Win32::Process::Create($ProcessObj, "C:\\Perl\\bin\\perl.exe", 'perl endless.pl', 0, NORMAL_PRIORITY_CLASS, ".")|| die ErrorReport();