$ perl -le '$a=\&foobar;sub AUTOLOAD{print $AUTOLOAD;} $a->();'
main::foobar