Select Code to Download

sub func {
my ($event, @planet_names) = @_; # read in parameters supplied by call
+er as in func($xyz)
# check that we have some names and that event contains the fields we 
+need
...
my $ret = func($anevent, "venus", "saturn");
die "func() failed" unless defined $ret;
# and now do what you like with the results.

for my $event (@events) {
  my $epoch = parse_event($event);

  my ( $MoonPhase, $MoonIllum, $MoonAge, $MoonDist, $MoonAng, $SunDist
+,
    $SunAng ) = phase($epoch);