use Log::Log4perl;

sub init()
{
    Log::Log4perl->easy_init( 
        {   level    => $DEBUG,
            file     => ">>test.log",
            category => "FILE"
        },
        {   level    => $DEBUG,
            file     => "STDOUT",
            category => "STDOUT"
        }
    );
}

sub getLogger
{
    my ($category) = @_;
    
    my $logger = Log::Log4perl->get_logger($category);
        
    return $logger;
}

init();

my $stdout_logger = getLogger(STDOUT);
$stdout_logger->info("testing stdout logger");

my $file_logger = getLogger(FILE);
$file_logger->info("testing file logger");