$ ./1.1.astro.pl 
./1.1.astro.pl 
33.4 -112.1 112.1 
Sun rise is Sat May 23 09:49:05 2020 UT
 
$ cat 1.1.astro.pl 
#!/usr/bin/env perl

use strict;
use warnings;
use 5.016;
use Log::Log4perl;

# get rid of old log
my $file = '/home/hogan/Documents/hogan/logs/4.log4perl.txt';
unlink $file or warn "Could not unlink $file: $!";
my $log_conf4 = "/home/hogan/Documents/hogan/logs/conf_files/4.conf";
Log::Log4perl::init($log_conf4);    #info
my $logger = Log::Log4perl->get_logger();
$logger->info("$0");

## im
my $deg_lat  = 33.4;
my $deg_long = -112.1;
my $west_long = -$deg_long;
$logger->info("$deg_lat $deg_long $west_long");


use Astro::Coord::ECI;
use Astro::Coord::ECI::Sun;
use Astro::Coord::ECI::Utils qw{deg2rad};
 
# 1600 Pennsylvania Ave, Washington DC USA
# latitude 38.899 N, longitude 77.038 W,
# altitude 16.68 meters above sea level
my $lat = deg2rad (38.899);    # Radians
my $long = deg2rad (-77.038);  # Radians
my $alt = 16.68 / 1000;        # Kilometers
my $sun = Astro::Coord::ECI::Sun->new ();
my $sta = Astro::Coord::ECI->
    universal (time ())->
    geodetic ($lat, $long, $alt);
my ($time, $rise) = $sta->next_elevation ($sun);

$logger->info("Sun @{[$rise ? 'rise' : 'set']} is ",
    scalar gmtime $time, " UT\n");
__END__ 

$