in reply to Looking for an efficient way to do datetime transfer

Using the Date::Manip module, the solution is 

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

[download]

In Section Seekers of Perl Wisdom