package Before;
use overload
    '&{}' => sub {
        my ( $f ) = @_;
        return sub {
            print "Stuff before\n";
            goto &$f;
        };
    };