#!/usr/bin/perl --

use strict;
use warnings;

use Log::Log4perl 1.26 qw(:easy);

TRACE("UNSEEN");
Log::Log4perl->easy_init($ERROR);
TRACE("ALSO UNSEEN");
Log::Log4perl->easy_init($TRACE);
TRACE("SEEN");
Log::Log4perl->get_logger->trace("ALSO SEEN");

__END__
2010/01/21 09:07:26 SEEN
2010/01/21 09:07:26 ALSO SEEN