use strict;
use warnings;

use Tk;

my $top = new MainWindow;

MainLoop;