#!/usr/bin/perl 

use strict;
use warnings;
use Time::Piece;

use Astro::Coords;
use Astro::Telescope;

print qq/Planet\tAzimuth\t\t\tElevation\n/; 

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

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

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

  $planet->telescope(Astro::Telescope->new(
    Name => q/1600 Pennsylvania Ave, Washington DC/, 
    Long => -77, 
    Lat  => 38.9, 
    Alt  => 16.7)); 

  my $az = $planet->az(format => 'deg'); 
  my $el = $planet->el(format => 'deg'); 

  print qq/$name\t$az\t $el\n/
}