Select Code to Download

2020/12/11 00:28:28 INFO ./4.wm_fermi.pl 
2020/12/11 00:28:33 INFO right ascension of jupiter 20h 11m 7s 
2020/12/11 00:28:33 INFO right ascension of saturn 20h 11m 3s 
...
2020/12/11 00:28:51 INFO sat seconds is 72660 
2020/12/11 00:28:51 INFO equal, while condition fails at julian day 24
+59205.07717792 
2020/12/11 00:28:51 INFO equal seconds is 72660

#!/usr/bin/env perl
use warnings;
use strict;
...
  my ( $up, $low ) = @_;
  $low + ( $up - $low ) * ( 0.4 + rand 0.2 );
}

fred@fourth:~/mojo$ ls
1.button.pl  2.1.mojo_hello.pl  5.3.elev.debug.pl
1.myapp.pl   5.2.elev.pl        5.3.elev.pl
fred@fourth:~/mojo$