Hello Akoya,

I have just a little suggestion for this code part:

print $LOG _timestamp(), q{  }, join ':', $0, $msg_level, $msg;
[download]

Maybe you like to use something like

use Log::Handler;
my $log = Log::Handler->new(
   filename  => $logfile,
   mode      => 'append',
   timestamp => $your_format,
   prefix    => "$0:<--LEVEL-->:"
);

$log->warning($msg); # or another msg_level
[download]

Kind regards, bloonix