use warnings;
use strict;
use 5.010;
use WWW::Mechanize::GZip;
use HTML::TableExtract;
use Prompt::Timeout;
use open ':std', OUT => ':utf8';
use constant TIMEOUT  => 3;
use constant MAXTRIES => 30;
use utils1;

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