Select Code to Download

#!/usr/bin/perl
use strict;
...
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";

The am_pms method in DateTime::Locale::Base has been deprecated. Pleas
+e see the DateTime::Locale distribution's Changes file for details at
+ /usr/share/perl5/DateTime/Format/Strptime.pm line 610.
The default_date_format method in DateTime::Locale::Base has been depr
+ecated. Please see the DateTime::Locale distribution's Changes file f
+or details at /usr/share/perl5/DateTime/Format/Strptime.pm line 613.
...
2014-02-16
2014-01-26