use DateTime; my $date = DateTime->now->subtract( DateTime::Duration->new( months => 13 ) ); my $date_limit = $date->dmy;