use strict; use warnings; use Log::Log4perl qw(:easy); my $conf = <init(\$conf); TRACE("message #1 (screen only)"); INFO("message #2"); INFO("message #3"); sleep(10); ERROR("message #4");