$ ./1.astro.pl 
Planet	Right Ascension		Declination
Jupiter	300.371015239225	-20.9886573993409
Saturn	301.438145819967	-20.6756490862067
$ cat 1.astro.pl 
#!/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/
}


sleep 2;
__END__ 

$