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";