Search Results

use Date::Calc qw(Add_Delta_YM);

my $date_input = '2000-08-01';

my @date = split /-/ ,$date_input;

($year,$month,$day) = Add_Delta_YM($date[0],$date[1],$date[2],0,-8);

if ($month < 10) {...