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