Select Code to Download

   $QuitButton = $TopFrame->Button(
     -text     => 'Quit',
...
           $MW->destroy();
        }
      });

sub GUI_PopupQuery {
my ($title, $AffirmativeText, $NegativeText, $str) = @_;
...

   return $returnval;
}