perl -MTk -e 'tkinit;MainLoop' -- -geometry -0+0