perl -MTk -e 'tkinit;MainLoop'