Re: Generate a date stamp of today less a date interval

[dave0]

Here's another option, using the DateTime modules:

use DateTime;

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

my $date_limit = $date->dmy;