$datei = "D:\\PERL\\TESTDAT\\datei1.dat";
@a = stat($datei);

print("$datei\n");
print("\t Letzter Zugriff: $a[8]\n");