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