UNIX for Advanced & Expert Users

> cat filestatus 
#! /bin/perl

#this holds the filename being researched
$filein="alarm1";

($dev, $ino, $mode, $nlink, $uid, $gid, $rdev,
 $size, $atime, $mtime, $ctime, $blksize, $blocks) = stat($filein);

$atime_f = localtime($atime);
$mtime_f = localtime($mtime);
$ctime_f = localtime($ctime);

print "last access = $atime_f \n"; 
print "last modify = $mtime_f \n";
print "file create = $ctime_f \n";
print " \n";

($day,$month,$year) = (localtime($mtime))[3,4,5];
#sprintf is built-in function for perl
$mtime_x = sprintf("%02d-%02d-%04d", $day, $month +1, $year + 1900);
print "formatted last modify = $mtime_x \n";