my $zerolevel = 8;
sub level_for_l4p {
    my $level = 0;
    1 while caller( $level++ );
    return ( $level - $zerolevel );
}
Log::Log4perl::init( 'log4perl.conf' );