use Tk; my $main = MainWindow->new; my $entry1 = $main->Entry->pack; MainLoop;