my @info = stat "file.txt";
print $info[8];