use Log::Log4perl qw(:easy);

    Log::Log4perl->easy_init( 
        { level   => $DEBUG,
          file    => ">>test.log" } );

    DEBUG("Debug this!");

##</code><code>##

package MyPackage;
use Log::Log4perl qw(:easy);
sub method {
    DEBUG "Doing something!";
}