#!/usr/bin/perl

use strict;
use warnings;

use Tk;
use Tk::Pane;

my $mw = MainWindow->new;
my $p = $mw->Scrolled('Pane')->pack;

$p->Label(-text => "text\n" x 25)->pack;

MainLoop;