package Prototype;
use overload
    '&{}' => sub {
        my ( $f ) = @_;
        return sub {
            check_arguments(@_);
            goto &$f;
        };
    };

sub i_know_what_im_doing {
    my $f = shift;
    goto &$f;
}

##</code><code>##

$f->(@args)

##</code><code>##

$f->i_know_what_im_doing(@args)