unless(grep{-f $_}glob("$directory/*"))
{
  print "Keine Dateien in $directory\n";
}