Select Code to Download

use Time::Local;
...
#               Second - Min - Hour - Day - Month - Year
my $starttime = timelocal($seconds, $mins, $hours, $day, $month, $year
+);

$starttime = 1031079733;
$endtime = 1013104442;
...


print "\n\nDifferencre is $year Years $mnt Months $week Weeks $day Day
+s, $hrs Hours, $min Minutes and $sec Seconds\n";