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

> perl -MWx -e "print join q[ ] , $Wx::VERSION, Wx::wxVERSION_STRING "
0.98 wxWidgets 2.8.10