#!/usr/bin/perl

use strict;
use warnings;
use Tk;

my $mw=MainWindow->new;

$mw->waitVisibility;
$mw->waitVisibility;