{
    use Wx;
    my $count = Wx::Display::GetCount();
    my $dc = 0;
    while( $dc < $count ){
        my $disp = Wx::Display->new( $dc );

        my $rect = $disp->GetGeometry;
        print "$dc $disp ", join 'x', map { $rect->$_ } qw[ GetWidth GetHeight ];
        print "\n";
        print "$dc $disp ", $disp->GetName, "\n";
        print "$dc $disp ", ' IsPrimary ', $disp->IsPrimary, "\n";
        print "\n";
        $dc++;
    }
}


__END__