#!/usr/bin/perl
use strict;

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

my $strp = DateTime::Format::Strptime->new(
    pattern => '%Y-%m-%d'
);

# convert date to 
my $date = '2014-01-26';
my $dt   = $strp->parse_datetime($date);
my $dat = $dt->add(days => 0)->strftime("%Y-%m-%d");
my $rem1 = $dt->add(days => 7)->strftime("%Y-%m-%d");
my $rem2 = $dt->add(days => 14)->strftime("%Y-%m-%d");
print "$date\n$rem1\n$rem2\n$dat\n";