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