use Tk;
my $mw = tkinit();
MainLoop;