###l4p DEBUG "It works!";
    # ...
    ###l4p INFO "Really!";

##</code><code>##

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

    ###l4p Log::Log4perl->easy_init($DEBUG);
    ###l4p DEBUG "It works!";
    # ...
    ###l4p INFO "Really!";

##</code><code>##

    2004/11/18 22:08:46 It works!
    2004/11/18 22:08:46 Really!