no warnings 'redefine';

sub logger { print shift . ": Dicitur clamantis in deserto." };   

logger('A');                                                      
HighLander::logger('B');                                          

package HighLander {
logger('C');
sub logger { print shift . ": I have something to say.\n" };       
sub down_one_level {
    sub logger { print shift . ": I am a man, not a fish.\n" };    
    sub down_two_levels {
        sub logger { print shift . ": There can be only one!\n" }; 
    }
}
logger('D');
}

logger('E');
sub logger { 
   print shift . ": This thought intentionally left blank.\n"      
};