sub AUTOLOAD { my $name = our $AUTOLOAD; $name =~ s/.*:://; # lose package name my $target = "DynaLoader::$name"; goto &$target; }