unless(-f $Datei)
    {   print 'DIR';      } else  {print 'FILE';   }