Select Code to Download

#!/usr/bin/perl 

...

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

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 = $pla
+net->dec(format => q/deg/); print qq/$name\t$ra\t$dec\n/}'