perl -MTk -le '$w=tkinit; $w->Dialog(-text => join q[x],$w->screenwidth,$w->screenheight)->Show;'