my $sun = Astro::Coord::ECI::Sun->universal ($time);
 
# Figure out if the Sun is up at the observer's location.
my ($azimuth, $elevation, $range) = $loc->azel ($sun);
print "The Sun is ", rad2deg ($elevation),
    " degrees above the horizon.\n";