Select Code to Download

use Time::JulianDay;

...
        printf "  %s --> %03s\n", $moda, $jd;
    }
}

2000:          (leap year)
  0112 --> 012
...
  0112 --> 012
  0402 --> 092
  1231 --> 365