use Log::Log4perl qw(get_logger :levels);

my $log4perl_conf=<<CFG
log4perl.rootLogger=INFO, Email
log4perl.appender.Email=Log::Dispatch::Email::MailSender
log4perl.appender.Email.to=me\@me.com
log4perl.appender.Email.from=me\@me.com
log4perl.appender.Email.smtp=smtp.me.com
log4perl.appender.Email.min_level=info
log4perl.appender.Email.layout=Log::Log4perl::Layout::PatternLayout
log4perl.appender.Email.layout.ConversionPattern=%d{yyyy-MM-dd HH:mm:ss} [%F{1}:%c{1}] %5p> %m%n
CFG
;

Log::Log4perl::init(\$log4perl_conf);
my $logger = Log::Log4perl->get_logger();

$logger->info('The first message bla bla');
$logger->info('The second message bla bla');
some_func();

sub some_func {
	my $logger = Log::Log4perl->get_logger();
	$logger->info("some_func was called");
	
}