perl -MTk -e 'tkinit->configure(-width => 500, -height => 500);MainLoop'