$filename=shift;
$currtime=time();
@fstat = stat($filename);
@stime = localtime($fstat[8]);
@mtime = localtime($fstat[9]);
@itime = localtime($fstat[10]);
$last_modify_time = sprintf("%04d-%02d-%02d %02d:%02d:%02d", $mtime[5] + 1900, $mtime[4] + 1, $mtime[3], $mtime[2], $mtime[1], $mtime[0]);
$stat_modify_time = sprintf("%04d-%02d-%02d %02d:%02d:%02d", $stime[5] + 1900, $stime[4] + 1, $stime[3], $stime[2], $stime[1], $stime[0]);
$inode_modify_time = sprintf("%04d-%02d-%02d %02d:%02d:%02d", $itime[5] + 1900, $itime[4] + 1, $itime[3], $itime[2], $itime[1], $itime[0]);
$ds_modify_time = $currtime - $fstat[8];
$dl_modify_time = $currtime - $fstat[9];
$di_modify_time = $currtime - $fstat[10];
print "$fstat[7] $last_modify_time $dl_modify_time $stat_modify_time $ds_modify_time $inode_modify_time $di_modify_time\n";