This is perl, v5.8.7 built for MSWin32-x86-multi-thread

Copyright 1987-2005, Larry Wall

##</code><code>##

$ChildPID = system 1, $CMDLine;
   my $Lock = Glck->new($ResName);
   LOG_MSG("I", "Online.pl is about to exit with 0.", 52099);
   exit (0);

##</code><code>##

require Win32::Process;
	
	my $ParentPID;
	
	$ParentPID = $$;
	LOG_MSG("I", "ParentPID = $ParentPID before creating child.", 52099, $ParentPID);
	
	Win32::Process::Create($ChildProc, $CMD, $CMDLine, 0, DETACHED_PROCESS, $CWD) || LOG_MSG("E", "Could not spawn child: $!", 52099);
		
	$ChildPID = $ChildProc->GetProcessID();
	LOG_MSG("I", "ChildPID = $ChildPID", 52099, $ChildPID);
	my $Lock = Glck->new($ResName);
	$Lock->lock_mk($ChildPID);
	LOG_MSG("I", "Online.pl is about to exit with 0.", 52099);
	exit (0);