Hi.
use Time::Local;
%months = qw/Jan 1 Feb 2 Mar 3/; # etc.
($day, $mon, $yr) = split/-/, "5-Feb-09";
##$time = timelocal($sec,$min,$hour,$mday,$mon,$year); see perldoc Time::Local
$time = timelocal(0,0,0,$day,$months{$mon} - 1, $yr + 100);
$now = time();
$diff = $now - $time;
print "now $now, ti
Thanks a lot Steve,
I tried using y to use Date::Calc package in my program.
I am quite new to this programing, so I need one more help.
Could you please tell me how to know Date::Calc is installed at my PC or
not.
While trying to use that package, I found message something like " didn't
foun