#!perl 
# Pragmas

package MyProjectPackage ;

use strict ; 
use warnings ;
use Win32::Process ;

my $MLIB ;
BEGIN {
	$MLIB = "c:/zlr" ;
}

use lib ( $MLIB . "/lib/" , $MLIB . "/lib/Perl/" )  ;

use Log::Dispatch ;
use Log::Dispatch::File ;

my $dispatcher 		= Log::Dispatch->new ;
my $MSOFT 		= "c:/zlr/script/test" ;
my $call_hProcess 	= ""  ;
my $call_Resultat 	= 0 ;
my $i 			= 0 ;

$dispatcher->add( Log::Dispatch::File->new( 
					name => 'MyProjectErrT2',
					min_level => 'info',
					filename => "$MSOFT/ErrGeneral.txt" ) );

$dispatcher->log( level => 'info',
                    message => 'Start of t2' );
 

while ( $i < 20 ) { 
		sleep 10 ;
		$dispatcher->log( level => 'info',
                message => "t2.pl : $i\n" );
		$i++ ;
	}