package subdir::Foo;
sub test{
        print "#inc=@INC#";
        my $log = Log::Log4perl->get_logger("MyMain");

        $log->debug("Here is a debug message in ". __PACKAGE__ );
}
1;