#button 3 is "right click"
$someWidget->bind('<3>', 
    sub {
          my $widget = shift;
          print "right button clicked! Pop up menu now\n"; 
          #run methods on $widget
          my $Ev = $widget->XEvent;
          #stuff is learned here...
          #then new window is generated
         });