Select Code to Download

$ ./4.triton.pl 
./4.triton.pl: line 1: use: command not found
./4.triton.pl: line 2: use: command not found
...
:utf8:          empty
utils1.pm:      Perl5 module source, UTF-8 Unicode text
$

use warnings;
use strict;
use 5.010;
...
## redesign for solar eclipse of aug 21, 2017
# declarations, initializations to precede main control
my ( $moon_seconds, $sun_seconds, $equal_sec, $equal );

WWW::Mechanize::GZip
HTML::TableExtract
Prompt::Timeout

$ ./5.triton.pl 
Make query number 1? [Y] :Y
Make query number 2? [Y] :Y
...
          ]
        ];
$

$ cat 2.jv.txt 
Script executed at Thu Jan  3 09:23:32 2019
1 Venus 14h 22m 7s −12° 47.7' 1.642 −35.087 −108.646
+ Set
...
6 Jupiter 14h 21m 15s −12° 59.9' 6.395 −56.553 159.518 Set
equal seconds is 2458070.75927645
$

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

$