sub getFilesToProcess { my $path = shift; opendir my $dh, $path or die "Opendir fehlgeschlagen für $path!\n"; return map { "$path/$_" } grep /\.jpg$/i, readdir $dh; }