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