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