#!/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(format => q/deg/); 
  my $dec = $planet->dec(format => q/deg/); 

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

##</code><code>##

perl -MAstro::Coords -MTime::Piece -Mstrict -e '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(format => q/deg/); my $dec = $planet->dec(format => q/deg/); print qq/$name\t$ra\t$dec\n/}'