my $aufruf = \&testsub;
my $script = 'externes_script.pl';
# das package definiere ich, weil die externen Scripte teilweise
# selbe sub Namen haben, damit will ich "Subroutine ... redefined at ..." verhindern

$aufruf->('a');
{
    package mein_namensraum;
    require $script;
}

# der Code ab hier steht in der externes_script.pl
# ist für diesen Versuch aber egal, Fehlermeldung ist die selbe
sub testsub {
    print "Sub $_[0]\n";
}