$ perl -we'sub AUTOLOAD {1} sub foo; print main->foo, 0+exists&foo, 0+defined&foo' 110