my $jd_to_convert = 2457205.09613609; my $dt = DateTime->new(year => -4713, month => 11, day =>24, hour => 12)->add(days => $jd_to_convert); say $dt, " = ", $dt->jd;