Select Code to Download

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

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

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