opendir LS, '../Bilder' or die $!;
while (my $file = readdir LS) { ... }
# oder moderner mit lexikalischem filehandle:
opendir my $ls, '../Bilder' or die $!;
while (my $file = readdir $ls) { ... }