#!/usr/bin/perl

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

while () {

  system 'clear';

  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  = sprintf('%.12f', $planet->ra(format => 'deg'));
    my $dec = sprintf('%.12f', $planet->dec(format => 'deg'));

    print qq/$name\t$ra\t$dec\n/;
  }
  sleep 1
}