$dialog= $mw->Dialog(-title => 'dialog', 
   -text => 'are you sure?', 
   -default_button => 'OK', -buttons => [ 'OK', 'Cancel'])->Show( );
if ($answer eq 'OK') {
}