perl -MTk -we "$mw=tkinit;$mw->update;sleep(5)"