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
{
	require $script;
	package mein_namensraum;
}
mein_namensraum::$aufruf->('a');

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