my $conf = q(                                                                                           
            log4perl.logger.testLog = ).$logging_level.q(, logApp
            log4perl.appender.logApp= Log::Log4perl::Appender::File         
            log4perl.appender.logApp.mode= append
            log4perl.appender.logApp.syswrite= 1
            log4perl.appender.logApp.filename= test.log                      
            log4perl.appender.logApp.layout= Log::Log4perl::Layout::PatternLayout 
            log4perl.appender.logApp.layout.ConversionPattern   = %m %n
       )
Log::Log4perl->init( \$conf );                                                                          
use testPackage;                                                                                        
&testPackage::foo();  

##</code><code>##

package testPackage;

use Log::Log4perl qw(get_logger);
sub foo {
    $logger = Log::Log4perl->get_logger("");  # IF I PUT testLog IN THE QUOTES THEN I'M GETTING THE blah IN THE CALLERS LOGS FILE
    $logger->info("blah");
}
1;