#!/camelbox/bin/perl package main; use strict; use Gtk2 -init; use Log::Log4perl; # Init Logger from config file. Log::Log4perl::init_and_watch( 'log\root-logger.conf', 30 ); our $logger = Log::Log4perl->get_logger; # Run main loop. Gtk2->main; #### package Foo; $main::logger->debug("Here is a debug message in Foo."); 1; #### package Bar; $main::logger->debug("Here is a debug message in Bar."); 1; #### package Baz; $main::logger->debug("Here is a debug message in Baz."); 1;