use Tk;

my $main = MainWindow->new;

my $entry1 = $main->Entry->pack;

MainLoop;