#!/usr/bin/perl
use warnings;
use strict;
use feature qw{ say };

use DateTime;

my $dateref = 'DateTime'->new( year  => 2013,
                               month => 3,
                               day   => 14,
                             );
my $datec   = 'DateTime'->now;

my $dt = $datec->delta_days($dateref);
say $dt->in_units('days');