use Date::Manip; 
print UnixDate(DateCalc("1899-12-30", "+40254 days"), "%Y-%m-%d\n");