use Log::Log4perl qw(:easy);
use Log::Log4perl::Level;
Log::Log4perl->easy_init( {'level'=>$DEBUG, 'layout'=>'%m%n'} );

sub doSomething
{
  my $logger = Log::Log4perl->get_logger();
  $logger->debug('some message');
}