use warnings;
use strict;
use Date::Calc qw/Add_Delta_Days Today_and_Now/;

my $delta = 1;

my ($year, $month, $day) = Today_and_Now;

print "$year $month $day\n";

my @nextdate = Add_Delta_Days($year, $month, $day, $delta);

print "@nextdate\n";