my $log;
{
  Log::Log4perl->init ( $log4perl_config );
  $log = Log::Log4perl->get_logger();
  ..
  $log->info('Some stuff');
  do_something();
}
sub do_something
{
  $log->info('Some other stuff');
  ..
}