#!/usr/bin/perl

# http://perlmonks.org/?node_id=1213368

use strict;
use warnings;
use Tk;
use Tk::Pane;

my $mw = MainWindow->new( );
$mw->minsize(200,300);

my $pane = $mw->Scrolled( 'Pane',
    -scrollbars => 'e',
    -border => 2,
    )->pack(-fill=>'both', -expand=>1);

foreach my $x (1..100) {
    my $label = $pane->Label(
        -text    => $x,
    )->pack(-side=>'top', -fill=>'x', -expand=>0);
    $mw->update;
    $pane->yview($label);
}
MainLoop;
[download]