use strict;
use Tk;

my $mw=MainWindow->new;

my $ent=$mw->Entry()->pack();
my $but=$mw->Button()->pack();

Mainloop;