#!/usr/bin/perl -w

use strict;
use Date::Calc qw(Add_Delta_Days);

my (undef, undef, undef, $day, $month,$year)  = localtime();
$year+=1900;
$month+=1;

($year,$month,$day) = Add_Delta_Days($year,$month,$day, -3);
print join("-", $year,$month,$day)


##</code><code>##

#!/usr/bin/perl -w

use strict;
use Date::Calc;

my (undef, undef, undef, $day, $month,$year)  = localtime();
$year+=1900;
$month+=1;

($year,$month,$day) = Date::Calc->Add_Delta_Days($year,$month,$day, -3);
print join("-", $year,$month,$day)