($MoonPhase,$MoonIllum) = Astro::MoonPhase::phase();
      print "$MoonIllum\n";

# prints
0.44839600941596