#!perl
use strict;
use DateTime;

my $endDate = DateTime->new(
   year => 2015, 
   month => 03, 
   day => 24, 
   time_zone  => 'America/New_York'
);

my $dt1 = DateTime->now( 'time_zone' => 'America/New_York' );
my $dur = $endDate->subtract_datetime($dt1);

my ($m,$w,$d) = $dur->in_units( 'months','weeks','days' );
print "Expires in: $m months, $w weeks, $d days";