UNIX for Advanced & Expert Users

#!/u/bin/perl
# (Your location of Perl may be different)
===========================================
$epoch= time ();
print "$epoch\n";

Output of this....

# ./cd.pl
1046442456 

To get this down to days (if your not worried about how many hours, minutes, seconds...)

#!/u/bin/perl
#
#       checkdate - a script to check a date (how long ago)
#       Parameter 1 is entry from /etc/shadow - 3rd field - SUN OS
#       Created 05/07/02 HOG
# =======================================
# Set up variables
$getepoch= time () /60 /60 /24 ;
($nowepoch, $junk) = split (/\./, $getepoch, 2);
$arguement = $ARGV[0];
$diff=$nowepoch - $arguement;
print "Password reset $diff days ago - $nowepoch - $arguement\n";