Select Code to Download

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

exit;