my $FILESLIST_SCROLL = $FILESLIST -> Scrolled( "Listbox", -selectmode=>'multiple', -scrollbars => 'se', -height=>'5') -> pack (-side => 'left', -fill => 'both', -expand => '1' );
$FILESLIST_SCROLL -> insert('end', @all_files);