1#!/usr/bin/perl
2######################################################################
3# color - Print messages colored by level
4######################################################################
5use strict;
6use warnings;
7
8my  $VERSION = "0.01";
9our $CVSVERSION = '$Revision: 1.1 $';
10
11use Log::Log4perl qw(:easy);
12Log::Log4perl->init(\ <<'EOT');
13  log4perl.category = DEBUG, Screen
14  log4perl.appender.Screen   = Log::Log4perl::Appender::ScreenColoredLevels
15  log4perl.appender.Screen.layout = \
16      Log::Log4perl::Layout::PatternLayout
17  log4perl.appender.Screen.layout.ConversionPattern = %d %F{1} %L> %m %n
18EOT
19
20for(1..3) {
21    DEBUG "Debug Message";
22    INFO  "Info Message";
23    WARN  "Warn Message";
24    ERROR "Error Message";
25    FATAL "Fatal Message";
26}
27