#!/usr/bin/perl

use warnings;
use strict;

use DateTime;

my $date = DateTime->now();

print $date->ymd() . "\n";

$date->subtract( days => 3);

print $date->ymd() . "\n";