use Log::Log4perl qw(get_logger);
    Log::Log4perl->init("pllog.conf");
    my $logger = get_logger("My_Tools.$Me");