use warnings FATAL => 'all';
use strict;

warn "foo\n";
warn "bar\n";

__END__

foo
bar

##</code><code>##

use strict;
use warnings FATAL => 'all';

use Log::Log4perl qw(:easy);
Log::Log4perl->easy_init($DEBUG);

WARN("foo");
DEBUG "A low-level message";
ERROR "Won't make it until level gets increased to ERROR";
WARN('bar');

__END__

2011/10/12 21:05:08 foo
2011/10/12 21:05:08 A low-level message
2011/10/12 21:05:08 Won't make it until level gets increased to ERROR
2011/10/12 21:05:08 bar