#!/usr/bin/perl

use strict;

my $bild = "*.jpg";
my $WDS = "WDS";
my @beide = ( $bild, $WDS );


# Oeffnen der Ordner
foreach $ordner ( @bla ) {

my $ordner = "/home/bla/";

    opendir ( ORDNER, $ordner) or die "kann Ordner nicht oeffnen";
    my $inhalt = `ls -1 $ordner`;

print STDERR "$inhalt";

    unless ( $inhalt = @beide or $bild )  {

    unlink ( $WDS ) or die "Konnte $WDS nicht loeschen: $!\n";
}