use Tk; my $mw = new MainWindow; my $ent = $mw -> Entry() -> pack(); MainLoop;