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