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

##</code><code>##

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