use DateTime::Format::ISO8601 qw( );

my $dt = DateTime::Format::ISO8601
    ->parse_datetime('1899-12-30')
    ->add( days => 40254 );

print($dt->ymd(), "\n");