Select Code to Download

$ pwd 
/home/hogan/mojo
$ ls
1.button.pl  5.3.elev.debug.pl  5.3.elev.pl
$

2020/12/11 10:45:52 INFO ./3.mojo_fermi.pl 
2020/12/11 10:45:53 INFO i is 0 ============== 
2020/12/11 10:45:53 INFO <?xml version="1.0" encoding="iso-8859-1"?> 
...
</html> 
2020/12/11 10:45:53 INFO i is 5 ============== 
2020/12/11 10:45:53 INFO

#!/usr/bin/perl 

use strict;
...

sleep 2;    #good hygiene
__END__

say 'Julian Day: ' . $dt->jd;

my $pturl  = 'http://www.fourmilab.ch/cgi-bin/Yoursky?z=1&lat=45.5183&
...
say 'Altitude: ' . $sunrow->children->[4]->text;
say 'Azimuth: '  . $sunrow->children->[5]->text;
say 'Visible: '  . $sunrow->children->[6]->text;