perl -MWx -e "print join q[ ] , $Wx::VERSION, Wx::wxVERSION_STRING"
0.99 wxWidgets 2.8.12

##</code><code>##

my $s = Wx::GetDisplaySize();
print join 'x', map { $s->$_ } qw' x y ';
print "\n";
__END__