mmmh, you really have my interest, please elaborate the idea. Of course is possible and you'll probably want:

use strict; use warnings;

use Astro::MoonPhase;
use Math::Trig; # you will need the cosine function

# print cos X ; # where X in radians;

my $date = time();
my @dataphase = phase($date);

print "Distance to the Moon at this day: ", $dataphase[3], " Km";
[download]