use Tk;
use strict;
use warnings;

my $mw = MainWindow->new(-background => 'black');
$mw -> title('  Test für Scrollbar  ');

# die Listbox erzeugen
my $list = $mw->Listbox(-height => 5);
# ... und platzieren
$list->pack(-side => 'left', -fill => 'both', -expand => 1);

# dann den passenden Scrollbar erzeugen
my $scroll = $mw->Scrollbar(-orient => 'vertical',
                            -command => [yview => $list]);
# ... und platzieren
$scroll->pack(-side => 'right', -fill => 'y');

# die Listbox sollte das wissen
$list->configure(-yscrollcommand => [set => $scroll]);

# Fuelle Werte in die Listbox: 
# Liste der Perl-Programme im akt. Verzeichnis
foreach my $f (<*.pl>)
  { $list->insert('end', $f); }

MainLoop;