Select Code to Download

sub Tray_RightClick {
    print "Right Click\n";
...
    $main->TrackPopupMenu($menu->{tray}, $x, $y);
    1;
}