my ($year,$month,$day) = Today();
my ($year,$month,$day) = Add_Delta_Days($year,$month,$day, -14);

if ($month eq "1") {$month = "01";}
if ($month eq "2") {$month = "02";}
if ($month eq "3") {$month = "03";}
if ($month eq "4") {$month = "04";}
if ($month eq "5") {$month = "05";}
if ($month eq "6") {$month = "06";}
if ($month eq "7") {$month = "07";}
if ($month eq "8") {$month = "08";}
if ($month eq "9") {$month = "09";}

if ($day eq "1") {$day = "01";}
if ($day eq "2") {$day = "02";}
if ($day eq "3") {$day = "03";}
if ($day eq "4") {$day = "04";}
if ($day eq "5") {$day = "05";}
if ($day eq "6") {$day = "06";}
if ($day eq "7") {$day = "07";}
if ($day eq "8") {$day = "08";}
if ($day eq "9") {$day = "09";}

my $minorday = $year.$month.$day;