use Time::JulianDay;

my $jd = 39749 + julian_day(1900, 1, 0);

my ($year, $month, $day) = inverse_julian_day($jd);

print "$year-$month-$day\n";  # 2008-10-29