use Log::Log4perl qw(get_logger :nowarn);
...
get_logger->info("Shit happens");