# A modified version of Tk::Menu::ButtonDown()
sub menu_button_down {
    ...
            $Tk::cursor = $menu->cget('-cursor');
            # START: Modification of Tk::Menu::ButtonDown()
            #$menu->configure(-cursor => 'arrow');
            my $menu_cursor = $Tk::cursor
                            // $menu->optionGet(q{cursor}, ref $menu)
                            // q{};
            $menu->configure(-cursor => $menu_cursor);
            # END: Modification of Tk::Menu::ButtonDown()
    ...
}