use warnings;
use strict;
use feature qw( say );

use DateTime;

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

say $now->delta_days($then)->delta_days(); # Prints 295
say $then->delta_days($now)->delta_days(); # Also prints 295