my $dt1 = DateTime->now(); my $dt2 = $dt1->clone->subtract( weeks => 1);