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

print(
   DateTime::Format::Excel->parse_datetime( 39749 )->ymd(),
   "\n"
);