sub AUTOLOAD {
    our $AUTOLOAD;
    my $subroutine_name = $AUTOLOAD;
    ...
}

##</code><code>##

perl -e "$,=$\=$/; print keys %::"