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