my $aufruf = \&testsub; # das package definiere ich, weil die externen Scripte teilweise # selbe sub Namen haben, damit will ich "Subroutine ... redefined at ..." verhindern { require 'externes_script.pl'; package testoben; testoben::$aufruf->('a'); } # der Code ab hier steht in der externes_script.pl # ist für diesen Versuch aber egal, Fehlermeldung ist die selbe my testsub = sub { print "Sub $_[0]\n"; }