package MyLog;
use base qw(Log::Log4Perl);

....