perl -MTk -e "tkinit->Label(-text => 'Hallo')->pack and MainLoop"