Select Code to Download

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

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