#!/usr/bin/perl

use strict;
use warnings;
use File::Find;
use File::MMagic;

my $basepath='/home/bla';
my $searchfilename='WDS';

my $mm = new File::MMagic;
finddepth(\&suche, $basepath);
sub suche
{
  if($_ eq $searchfilename)
  {
    if(opendir(my $dir, $File::Find::dir))
    {
      my $delete=1;
      while(my $filename = readdir($dir))
      {
        next if($filename eq '.' or $filename eq '..');
        my $type = $mm->checktype_filename($filename);
        if($type eq 'image/jpeg')
        {
          $delete=0;
          last;
        }
      }
      closedir($dir);
      if($delete and -f $File::Find::name)
      {
        print "Loesche: $File::Find::name\n";
        unlink($File::Find::name) or warn "konnte $File::Find::name nicht löschen ($!)";
      }
    }
    else
    { warn "konnte $File::Find::dir nicht oeffnen ($!)\n"; }
  }
}