Select Code to Download

program start -> initialize logger <<Log::Log4perl::init("log.properti
+es")>> -> get the logger <<my $logger = get_logger()>> -> use fork() 
+to create threads -> wait for threads to die

child start -> change NDC <<Log::Log4perl::NDC->push($NDC)>> -> do the
+ir thing, including using customer modules

use Log::Log4perl (get_logger);
my $logger = get_logger();
...
{
  $logger->info("Hello world!");
}