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

##</code><code>##

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