Scripting >> Perl >> How to get date information of files

#!/usr/bin/perl $filename = "some-file-name"; @fileinfo = stat($filename); for ($i=0;$i<12;$i ) { print "$fileinfo[$i]\n"; } where:- i Value --- ------- 0 dev device number of filesystem 1 ino inode number 2 mode file mode (type and permissions) 3 nlink number of (hard) links to the file 4 uid numeric user ID of file's owner 5 gid numeric group ID of file's owner 6 rdev the device identifier (special files only) 7 size total size of file, in bytes 8 atime last access time since the epoch 9 mtime last modify time since the epoch 10 ctime inode change time (NOT creation time!) since the epoch 11 blksize preferred block size for file system I/O 12 blocks actual number of blocks allocated Last updated on (yyyy-mm-dd): 2008-01-16