perl -MTk -e " tkinit->Scrolled( q/TextEdit/ )->pack; MainLoop "