my $dt = DateTime->new(
    year  => 1582,
    month => 10,
    day   => 4,
);

print $dt->dmy, "\n";
$dt->add( days => 1 );
print $dt->dmy, "\n";