$ perl -le'
    sub AUTOLOAD { print "Loading $AUTOLOAD" }
    sub foo;
    __PACKAGE__->can("foo")->();
'
Loading main::foo