#!/usr/bin/perl 

use strict;
use warnings;
use Time::Piece;
use Astro::Coords;

print qq/Planet\tRight Ascension\t\tDeclination\n/; 

for my $name (qw/Jupiter Saturn/) {

  my $planet = Astro::Coords->new(planet => $name);

  $planet->datetime(Time::Piece->new);

  my $ra  = $planet->ra; 
  my $dec = $planet->dec; 

  print qq/$name\t$ra\t$dec\n/
}