use Astro::SpaceElevator;
 
my $elevator = Astro::SpaceElevator->new(0, 120, 100_000, time());
print "The elevator leaves the Earth's shadow at " . ($elevator->shadows->{Earth}{penumbra})[1] . "km above the base.\n";

##</code><code>##

Too many arguments at /usr/local/share/perl/5.26.1/Astro/SpaceElevator.pm line 204.

##</code><code>##

    # first we check to see if the sun has risen over the base station.
    my (undef, $elevation, undef) = $base->azel($sun, 1); # line 204