.
.
.
# erstelle eine single selection listbox
$lbs = $fdw->ScrlListbox(-label      => 'Single Selection',
                        -selectmode => 'single',
                        -height     => 5,
                        -exportselection => 0);
$lbs->pack(-pady => '1c', -padx => '0.5c');

# dieser Pfad soll angelaufen werden!
$path = "/homes/Patrick/Perl";

# befülle die Listbox mit Einträgen
foreach $path (<*.pl>)
{
    $lbs->insert("end", $path); # "normal" appending
}
.
.
.