use strict;
use Tk;

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

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

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

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

MainLoop;