my $dialog = $mw->DialogBox (-title => "Delete", -buttons => ["Yes", "No"]);
$dialog->Label (-text => "Are You Sure you Want to Save?")->pack (-side => 'left');
my $answer = $dialog->Show;
return 0 if $answer eq "No";
save ()and exit if $answer eq "Yes";
 exit;

sub save { } ;