Select Code to Download

#!/usr/bin/perl -w

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

#!/usr/bin/perl -w

...

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