Select Code to Download

$ pt 3.ut.pl 
$ ./3.ut.pl
Make query number 1? [Y] :Y
...
equal seconds is 2458517.329784
...
$

equal, while condition fails at julian second 2458489.99538359
19 Moon 19h 28m 49s −21° 17.9' 63.2 ER −42.931 −103.
+221 Set
19 Pluto 19h 28m 49s −21° 58.6' 34.696 −43.388 −102.
+531 Set
equal seconds is 2458489.99538359
$

$ cat 3.ut.pl
#!/usr/bin/perl -w
use 5.011;
...
}

$