#!/usr/bin/perl

use Time::Piece;
use Time::Seconds;

$before = Time::Piece->strptime("Thu Apr 1 10:00:00 2003", "%a %b %e %H:%M:%S %Y");

$now = localtime(time) + $before->tzoffset; 

print "Time now is:$now\n"; # gives time format  "Thu May  1 13:11:11 2003"
print "Time before:$before\n"; # gives time format of "Thu May  1 13:11:11 2003"
							   # (dont forget timezone)


$diff = $now - $before;

$years  = int($diff->years);
$diff  -= $years * ONE_YEAR;

$months = int($diff->months);
$diff  -= $months * ONE_MONTH;

$days   = int($diff->days);
$diff  -= $days * ONE_DAYS;

$hours  = int($diff->hours);
$diff  -= $hours * ONE_HOUR;

$minutes   = int($diff->minutes);
$diff  -= $minute * ONE_MINUTE;

print "$years years, $months months, $days days, $hours hours, $minutes minutes since $before\n";