perl -MTk -e "MainWindow->new->Scrolled('Text')->pack; MainLoop();"