print "Verzeichnis: $file\n" if (-d $dir.$file);
  print "Datei      : $file\n" if (-f $dir.$file);