use Tk;
use strict;
use warnings;

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

# die Listbox erzeugen
my $scrlist = $mw->Scrolled('Listbox', 
                            -height => 5, 
                            -scrollbars => 'se'); 
# ... und platzieren
$scrlist->pack();

# Fuelle Werte in die Listbox...
foreach my $f (<*.pl>)
  { $scrlist->insert('end', '/home/jpl/perl/bsp/' . $f); }

MainLoop;