#!/usr/bin/perl use strict; use Log::Log4perl qw(get_logger :levels :no_extra_logdie_message); Log::Log4perl::init("log4perl.conf); my $logger = get_logger("example"); $logger->info("START " . basename($0)); $logger->info("la ti da");