$winInfoRef->{HLIST}->bind('<Button-3>' => sub{$winInfoRef->{MENU}->Popup(-popover=>'cursor',-popanchor=>'ne')}

##</code><code>##

$winInfoRef->{HLIST}->bind('<Button-3>' => sub{Popup($winInfoRef->{MENU},-popover=>'cursor',-popanchor=>'ne')}