Help for this page

Select Code to Download

Select or download this

my $result = $myDialogBox->Show;

print ($result eq "OK"? "user chose to save":"user discarded");