use Astro::MoonPhase;

  ($MoonIllum) = phase();
      print "$MoonIllum\n";