use Log::Log4perl;

# Initialize Log4perl
Log::Log4perl->init(\<<'END');
log4perl.logger                    = INFO, FileAppender

log4perl.appender.FileAppender     = Log::Log4perl::Appender::File
log4perl.appender.FileAppender.filename = ~/Desktop/Acme-Frobnitz/logs/acme-frobnitz.log
log4perl.appender.FileAppender.layout   = Log::Log4perl::Layout::PatternLayout
log4perl.appender.FileAppender.layout.ConversionPattern = %d [%p] %m%n
END

# Create logger
my $logger = Log::Log4perl->get_logger();

# Log messages
$logger->info("This is an info message.");
$logger->error("This is an error message.");