#!/usr/bin/perl

use strict;
use warnings;

use DateTime;
use DateTime::Format::Strptime;

my $formatter = DateTime::Format::Strptime->new(
        pattern => '%a, %d %b %Y'
);

my $today = DateTime->now( formatter => $formatter );

my @days = ();

foreach my $day (1..14) {
    push @days, $today->clone->add( days => $day );
}

print join("\n", @days), "\n";