my $orig_menu_post;
BEGIN {
    $orig_menu_post = \&post;
}
*post = sub {
    my($self, $x, $y) = @_;
    # ... irgendetwas machen ...
    $orig_menu_post->($self, $x, $y); # Original aufrufen
};