# -------------------------------------------------
            # Mit DosGlob geht es augfrund eventueller Spaces im
            # Dateipfad nicht
            # my @bilder = File::DosGlob::glob(
            #     File::Spec->catfile($quellverz, '*.*')
            # );            
            # -------------------------------------------------      &nbsp
;              &nbsp
;          
            # Es gibt zwar den klassischen Weg, aber letzenendes
            # fand sich doch jemand, der ManPages lesen kann 
            # (thx  @ ptk @ http//www.perl-community.de)
            # my $d = DirHandle->new( $p{'-Verzeichnis'} );
            # if (defined $d) {
            #     while (defined($_ = $d->read)) { 
            #         next if (/^\.$/ or /^\.\.$/);
            #         next if -d File::Spec->catfile($p{'-Verzeichnis'}, $_);
            #         push (@bilder, File::Spec->catfile($p{'-Verzeichnis'}, $_)) 
            #                    
               
      if $_ =~ $p{'-Dateiendungen'};
            #    } # /while
            #     
            #     # DirHandle schließen
            #     undef $d;
            # }              &nbsp
; 
            @bilder = File::Glob::bsd_glob( 
               
 File::Spec->catfile($quellverz, '*.*') 
            );