use Logger;

# Create the Logger object passing file name 
my $log=Logger->new(LOG=>"FILE.LOG",CARP=>1); 

# Call log method passing the message and 1 to print to screen or 0  not to print to screen. 
	
$log->log("A",1);
	$log->log("qwertyuiopasdfghjklzxcvbnmqwertyuiopasdfghjklzxcvbnmqwertyuiopasdfghjklzxcvbnm ",1);
	$log->log("12345690123456789012345678990",1);