sub AUTOLOAD {
    my $method = $AUTOLOAD;
    my $handler = sub { ... };
    # Install the handler:
    no strict 'refs';
    *{ $method } = $handler;
    goto &$handler;
}