use Log::Log4perl qw(get_logger :levels); our $logger = Log::Log4perl->get_logger(__PACKAGE__); $logger->level($INFO); # Appenders our $appender = Log::Log4perl::Appender->new( "Log::Dispatch::File", filename => "Automation.log", mode => "append", ); $logger->add_appender($appender); $logger->info("Logger");