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";
}