$ cat 672543.pl
use warnings;
use strict;

use Log::Log4perl;
my $conf = q(
  log4perl.category.my_logger              = INFO, ScreenAppender
  log4perl.appender.ScreenAppender         = Log::Log4perl::Appender::Screen
  log4perl.appender.ScreenAppender.stderr  = 1
  log4perl.appender.ScreenAppender.layout  = PatternLayout
  log4perl.appender.ScreenAppender.layout.ConversionPattern=[%p] %d %m%n
);
Log::Log4perl::init( \$conf );
my $log = Log::Log4perl::->get_logger(q(my_logger));


$log->debug(q{one});
$log->info(q{two});
$log->warn(q{three});
$log->error(q{four});
$log->fatal(q{five});

__END__

$ perl -w 672543.pl
[INFO] 2008/03/06 21:56:07 two
[WARN] 2008/03/06 21:56:07 three
[ERROR] 2008/03/06 21:56:07 four
[FATAL] 2008/03/06 21:56:07 five
$