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