use DateTime;
my $today = DateTime->today( time_zone => 'local' );
my $dur = $today->delta_days(
   $today->clone->subtract( years => 1, months => 1 )
);
print( $dur->in_units( 'days' ), " days\n" );
[download]

There's also ->delta_md if you want month+days instead of just days.