@andmed=stat("katse.txt");
print "Viimati loeti ".time()-$andmed[8]." sekundit tagasi ";

 ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,
     $atime,$mtime,$ctime,$blksize,$blocks) = stat("katse.txt");
print "Suurus: $size, Pöördumine: $atime, muutmine: $mtime, praegu: " .time();