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");
}