perl -MTk -e"print tkinit->messageBox(qw, -default ok -type okcancel ,)"
Cancel

##</code><code>##

perl -MTk -e"print tkinit->MsgBox(qw, -default ok -type okcancel ,)->Show"
Assuming 'require Tk::MsgBox;' at -e line 1
cancel

##</code><code>##


perl -MTk -e"print tkinit->DialogBox(qw, -buttons , , [qw, ok cancel ,])->Show"
Assuming 'require Tk::DialogBox;' at -e line 1
ok


perl -MTk -e"print tkinit->DialogBox(qw, -default_button ok -buttons , , [qw, ok cancel ,])->Show"
Assuming 'require Tk::DialogBox;' at -e line 1
ok

##</code><code>##

perl -MTk -e"print tkinit->DialogBox(qw, -default_button cancel -buttons , , [qw, ok cancel ,])->Show"

##</code><code>##

perl -MWx=wxYES,wxNO -e"warn wxYES;warn wxNO; die Wx::MessageBox( 1 , 2, wxYES|wxNO )"
2 at -e line 1.
8 at -e line 1.
8 at -e line 1.