#!/usr/bin/perl

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

$before = Time::Piece->strptime("2003/04/30 10:00:00", "%Y/%m/%d %H:%M:%S");
$now = localtime(time);

$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  -= $min * ONE_MIN;
$min   = int($diff->min);

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