use strict;
use Tk;

my @Displays = qw"node1:0 node2:0";

my $top = MainWindow->new();
my %top;

my $orig_display = $ENV{'DISPLAY'};
foreach (@Displays) {
  $ENV{'DISPLAY'} = $_;

  if (eval {$top{$_} = MainWindow->new()}) {
    print "MainWindow opened on $_\n";
  } else {
    print "MainWindow failed to open on $_\n";
    $top{$_} = 0;
  }
}
$ENV{'DISPLAY'} = $orig_display;

MainLoop;