my $LH_Module = ( caller( 1 ) )[ 3 ]; # Das ist der Aufruf
     
my $LH_Package = $LH_Module;
print "Package : $LH_Package" , "\n";                                   

# Bestimmung des Caller - Aufrufs ( Sub - Routine )	
my $LH_Caller = ( split( /::/ , ( caller( 1 ) )[ 3 ] ) )[ -1 ];
print "Caller : $LH_Caller" . "\n";

# Entfernung der Sub - Routine aus der Modul - Bezeichnung
$LH_Module =~ s/\::$LH_Caller//;
print "Module : $LH_Module" . "\n";