my $dlg=$mw->DialogBox(-title=>'Winner',
                       -buttons=>["Again","Exit"]);
my $b=$dlg->Show();
if ($b eq "Again") {
   ...
} else {
  $mw->destroy(); 
  exit;
}