in reply to Generate a date stamp of today less a date interval

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;

[download]

In Section Cool Uses for Perl