perl -MTk -e 'Tk->e'