my ($script_package, $script_file, $script_line) = caller; # Ermittelt aktuelle Programmzeile