Select Code to Download

#!/usr/bin/perl 

use v5.030;    # strictness implied
...
}

__END__

#source 5.1.mp.txt 
#source 5.mp.txt
b 262
...
B *
c
#save 5.mp.monk.txt

$ perl -d 5.mp.pl

Loading DB routines from perl5db.pl version 1.55
...
main::(5.mp.pl:32):    my $debug    = 1;
  DB<1> source 5.1.mp.txt                                             
+          
>> #source 5.mp.txt

>> b 262
>> c
INFO: 5.mp.pl
...
0
>> b 312
>> b 317

>> c
...
291:        if (my $h = $self->header("Content-Encoding")) {
>> r
scalar context return from HTTP::Message::decoded_content: '{"elevatio
+n":821,"success":true,"requestNum":"163546920137"}'

main::get_elevation_from_coordinates(5.mp.pl:317):
317:      my $data    = Data::Roundtrip::json2perl($content);
...
   -> 1

...
event2epoch(): setting time to '03:22:31' ...
...
 at 5.mp.pl line 115.
INFO: on the Scylla on 2021-10-14T03:22:31 (1634170951 seconds unix-ep
+och) timezone: Africa/Nairobi (lat: 15.6325, lon: 38.245833) at heigh
+t 843  meters

...
event2epoch(): setting time to '03:22:31' ...
...
  DB<13> p $json_string                                               
+          
{"elevation":0,"success":true,"requestNum":"163546928850"}

  DB<14> B *                                                          
+          
Deleting all breakpoints...
...
commands saved in 5.mp.monk.txt
  DB<16> q                                                            
+          
$

INFO: on the Scylla on 2021-10-14T03:22:31 (1634170951 seconds unix-ep
+och) timezone: Africa/Nairobi (lat: 15.6325, lon: 38.245833) at heigh
+t 843  meters
INFO: Object    Azimuth        Elevation
INFO: Venus    168.793996164728        -81.0110616258686
INFO: Jupiter    258.080321870357        -14.8575841846033
INFO: Moon    251.270738258432        -35.2685064885712
INFO: Saturn    256.410482564197        -30.2637811706649

$ perl -Mre=debug -e "/just|another|perl|hacker/"
Compiling REx "just|another|perl|hacker"
~ tying lastbr BRANCH (11) to ender END (15) offset 4
...
stclass AHOCORASICKC-EXACT[ahjp] minlen 4 
Freeing REx: "just|another|perl|hacker"
$