use Tk;
my $mw = MainWindow->new;

##</code><code>##

X connection to remotehost:10.0 broken (explicit kill or server shutdown).