#!/usr/local/bin/perl

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

$secs = time();

print "$secs\n";
print "$mtime\n";
$diff= ( $secs - $mtime ) / ( 60 * 60 * 24 );
print "$diff\n";




