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