Maybe not the most efficient or compact, but here's a reliable DateTime solution.

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

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

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