sub update_email_logger { my $subject = shift; my $logger = Log::Log4perl::get_logger(); my $pattern = Log::Log4perl::Layout::PatternLayout->new( "%d{yyyy-MM-dd HH:mm:ss} %p: %m
" ); my $appender = Log::Log4perl::Appender->new( "Log::Dispatch::Email::MailSender", name => "Email", to => $EMAIL_NOTIFICATION, subject => $subject, from => 'myemail@gmail.com', smtp => $SMTP_SERVER, Threshold => 'DEBUG', ); $appender->layout( $pattern ); $logger->add_appender( $appender ); }