Select Code to Download

package MyLogger;
require Exporter;
...
    print STDERR caller() . '::' . shift();
}

#! perl -slw
use strict;
...
use MyLogger;

logMessage( 'hello' );

c:\test>MyScript.pl
MyScript::hello
main::hello