File size and modified time

When we pass the file name (include full path) as parameter,It will give us the size of the file and last modified time.

 
sub getFileStats {
 my $filename = $_[0];       ## includes full path
 my $not_applicable = 'N/A';

 # get the stats.  This returns nulls if no file exists
 my ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size, $atime,$mtime,$ctime,$blksize,$blocks) = stat($filename);
 
 if($mtime != undef) {
  # format datetime
  my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) =localtime($mtime);  
  $year += 1900;
  if ($min < 10) {
   $min = "0$min";
  }

  $mon = $mon + 1; ## zero based
  
  my $str_time = "$mon/$mday/$year $hour:$min";
  return ($size, $str_time);
 } else {
  return ($not_applicable, $not_applicable);
 }

 #------------------------------------------------------------------- 
 # For reference here are the stats we get for this filename
 #
 # 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 in seconds since the epoch
 # 9 mtime    last modify time in seconds since the epoch
 # 10 ctime    inode change time (NOT creation time!) in seconds since the epoch
 # 11 blksize  preferred block size for file system I/O
 # 12 blocks   actual number of blocks allocated  
}