#!/usr/bin/perl
use Tk;
use Tk::Pane;

my $mw = new MainWindow;

my $p = $mw->Scrolled('Pane', -scrollbars => 'osoe')->pack();

$p->Entry()->pack() for 1..10;

MainLoop();