#!/usr/bin/perl -w
use strict;
use warnings;

use Astro::MoonPhase;

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

print "MoonPhase = $MoonPhase\n";
print "MoonIllum = $MoonIllum\n";
print "MoonAge = $MoonAge\n";
print "MoonDist = $MoonDist\n";
print "MoonAng = $MoonAng\n";
print "SunDist = $SunDist\n";
print "SunAng = $SunAng\n";

##</code><code>##

MoonPhase = 0.766679233270294
MoonIllum = 0.44769650565041
MoonAge = 22.6404890872028
MoonDist = 364406.875767821
MoonAng = 0.546526894368734
SunDist = 148126949.396541
SunAng = 0.538424300459282