my $log = bless Log::Log4perl->get_logger(caller()), __PACKAGE__;