perl -MWx -le " print join q[x], Wx::ScreenDC ->new-> GetSizeWH "

##</code><code>##

perl -MWx -le " Wx::MessageBox( join q[x], Wx::ScreenDC ->new-> GetSizeWH ) "

##</code><code>##

wperl -MWx -le " Wx::MessageBox( join q[x], Wx::ScreenDC ->new-> GetSizeWH ) "