use strict;
use warnings;

use Tk;

my $main   = MainWindow->new();

my $box    = $main->Scrolled('Listbox',
                             -scrollbars => 'oe',
                             -height     => 5,
                           )
                     ->pack(-side        => 'left',
                            -fill        => 'both',
                            -expand      => 1,
                           );
$box->insert('end', $_) for qw(Eins Zwei Drei Vier Fünf Sechs Sieben Acht Neun Zehn);

MainLoop();