my $db = $mw->DialogBox(-title => 'Dialog', -buttons => ['Yes','No','Abort'],-default_button => 'Yes');
$db->Label(-text =>"This is a dialog")->pack(-side=>'top', -ipady=>5);
my $answer = $db->Show();
print "Your selection is $answer \n";