#!/usr/bin/perl

use strict;
use warnings;
use Data::Dumper;
use DateTime;

$\ = "\n";




my $bday = DateTime->new(
  year   => 2009,
  month  => 3,
  day    => 13,
  hour   => 8,
  minute => 16
);


my $now = DateTime->now(time_zone  => 'America/New_York');

#print Dumper $t2;

# subtract_datetime returns a "DateTime::Duration" object
my $dtd1 = now$->subtract_datetime($bday);


print $dtd1->years . q{ years}             if $dtd1->years;
print $dtd1->months . q{ months}           if $dtd1->months;
print $dtd1->weeks . q{ weeks}             if $dtd1->weeks;
print $dtd1->days . q{ days}               if $dtd1->days;
print $dtd1->hours . q{ hours}             if $dtd1->hours;
print $dtd1->minutes . q{ minutes}         if $dtd1->minutes;
print $dtd1->seconds . q{ seconds}         if $dtd1->seconds;
print $dtd1->nanoseconds . q{ nanoseconds} if $dtd1->nanoseconds;