#!perl; use strict; use warnings; use Log::Log4perl qw(get_logger); Log::Log4perl->init("log.conf"); my $logger = get_logger("logfile.log"); $logger->info("This will get logged\n"); $logger->debug("This will not\n"); print "The quick brown fox jumped over the lazy dogs\n";