# -------------------------------------------------
# Mit DosGlob geht es augfrund eventueller Spaces im
# Dateipfad nicht
# my @bilder = File::DosGlob::glob(
# File::Spec->catfile($quellverz, '*.*')
# );
# -------------------------------------------------  
;  
;
# 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;
# }  
;
@bilder = File::Glob::bsd_glob(
File::Spec->catfile($quellverz, '*.*')
);