log4perl.rootLogger=FATAL, A1, Mailer
log4perl.logger=INFO, log

log4perl.appender.A1=Log::Dispatch::File
log4perl.appender.A1.filename=test.log
log4perl.appender.A1.mode=append
log4perl.appender.A1.layout=PatternLayout
log4perl.appender.A1.layout.ConversionPattern=%d %p> %F{1}:%L %M - %m%n
log4perl.appender.Mailer         = Log::Dispatch::Email::MailSendmail
log4perl.appender.Mailer.to      = joeshmoe
log4perl.appender.Mailer.from 	 = joeshmoe
log4perl.appender.Mailer.subject = Something's broken!
log4perl.appender.Mailer.layout  = SimpleLayout

log4perl.appender.log=Log::Dispatch::File
log4perl.appender.log.filename=/mail.log
log4perl.appender.log.mode=append
log4perl.appender.log.layout=PatternLayout
log4perl.appender.log.layout.ConversionPattern=%d %p> %m%n

##</code><code>##

use Log::Log4perl;
Log::Log4perl->init("surv.conf"); #name of my config file
my $log = Log::Log4perl->get_logger();
$log->info("connecting to database");
my $dbh = DBI->connect(ORACLE_DATABASE_NAME, ORACLE_USER, ORACLE_PASSWORD) 
			or die $log->fatal($DBI::errstr);