my ($package, $filename, $line) = caller;

print "Script $filename ruft in $package und Zeile $line die Funktion caller auf\n";