#!/usr/bin/perl

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

$before = Time::Piece->strptime("2003/05/01 10:00:00", "%Y/%m/%d %H:%M:%S");
$now = localtime(time);
print "Time now is:$now\n";

$diff = $now - $before;

$years  = int($diff->years);
$diff  -= $years * ONE_YEAR;
$months = int($diff->months);
$diff  -= $months * ONE_MONTH;
$days   = int($diff->days);
$diff  -= $hours * ONE_HOUR;
$hours  = int($diff->hours);
$diff  -= $minutes * ONE_MINUTES;
$minutes   = int($diff->minutes);
$diff  -= $minutes * ONE_SECONDS;
$secounds   = int($diff->seconds);

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