perl -MTk -we "MainLoop tkinit"