$ perl -w
sub foo;
sub AUTOLOAD { print "called $AUTOLOAD" }
print "is foo defined? ",0+defined &foo, " does foo exist? ", 0+exists &foo, "\n";
foo();
__END__
is foo defined? 0 does foo exist? 1
called main::foo