perl -MTk -e " tkinit->TextEdit->pack; MainLoop "