Select Code to Download

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