use strict ; 
use warnings ;
use Win32::Process ;
use File::Log;
 
my $call_hProcess 	= ""  ;
my $call_Resultat 	= 0 ;


$call_Resultat = Win32::Process::Create($call_hProcess,
			"c:/Perl/bin/Perl.exe",
			"perl t2.pl",
			0,
			IDLE_PRIORITY_CLASS,
			"." )  ;


$call_Resultat = Win32::Process::Create($call_hProcess,
			"c:/Perl/bin/Perl.exe",
			"perl t3.pl",
			0,
			IDLE_PRIORITY_CLASS,
			"." )  ;

##</code><code>##

 
use strict ; 
use warnings ;

use File::Log;

# Log INFORMATIONAL or worse to a file
 my $log = File::Log->new({
   debug           	=> 4,
   logFileName     	=> 'app.log',
   logFileMode     	=> '>>',
   dateTimeStamp   	=> 0,                   		
   stderrRedirect  	=> 0,                   		
   defaultFile     	=> 1,                   	
   logFileDateTime 	=> 0,                   		
   appName         	=> 'MyApp', 				
   PIDstamp        	=> 1,                   	
   storeExpText    	=> 0,                   		
 });

		    
for ( my $i=0;  $i <= 50; $i++ ) { 
		sleep 2 ;
		$log->msg(4, "t2.pl : $i\n");
}