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

sub save { } ;