my ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,$atime,$mtime,$ctime,$blksize,$blocks) = stat($filename);
print "$atime : $mtime : $ctime\n";

##</code><code>##

1094560374 : 1094551336 : 1094551336