use Tk;

$window = MainWindow->new();

$window->Scrolled(Text, -width => 40, -height => 10)->pack();

$window->Entry(-width => 20)->pack();

$window->Label(-text => 'a label')->pack();

$window->Button(-text => 'a button', -command => sub { exit() })->pack();

MainLoop();