姓名
DateTime :: Julian-提供例程以使用天文朱利安日期（有时称为朱利安天数）
概要
use DateTime ::Julian;
my $jd = nnnn . nnnn; # Julian date for 20
my $utc = DateTime ::Julian . new : : juliandate($jd);
say $utc . j2000;
say $utc . jcent;
my $lon = -86.234 ; # local observer's lat
