my $dir = 'c:\Ordner;

opendir(DH, $dir) or die "Oeffnen des Ordners fehlgeschlagen";
@dateien = readdir(DH);
closedir(DH);

foreach my $datei (@dateien)
{
  open (Inhalt,"<","$datei");

  
  my $Status = 0;
  foreach (<Inhalt>)
  {
    if ($_ !~ /logging/ )
    {
    }
    else 
    {
     $Status = 1;
    }
  }
  
  if ($Status == 0)
  {
    print $datei."\n";
  }
    
  close (Inhalt);

}