perl -MTk -le '$w=tkinit; print join q[x],$w->screenwidth,$w->screenheight'