use Date::Calc qw(Add_Delta_YM);

my ($day,$month,$year) = (localtime)[3..5];
$month++;
$year+=1900;
my ($n_year,$n_month,$n_day) = Add_Delta_YM($year,$month,$day, 0,1);