#!/usr/local/bin/perl
use Env qw(TERM);
$ENV{TERM} = 'no-resize-vt100';
use Net::Telnet;
$connection = new Net::Telnet ( Host=>'ssd.jpl.nasa.gov',
                                Port=>6775);
$connection->open();
$connection->waitfor('/Horizons> /');
$connection->print('load vla-1');
$connection->waitfor('/Horizons> /');
$connection->print('page');
$connection->waitfor('/Horizons> /');
$connection->print('799');
$connection->waitfor('/.*Select.*: $/');
$connection->print('e');
$connection->waitfor('/.*Observe.*: $/');
$connection->print('o');
$connection->waitfor('/.*Coordinate.*: $/');
$connection->print('500@399');
$connection->waitfor('/.*Starting.*: $/');
$connection->print('1981-Mar-07 08:00');
$connection->waitfor('/.*Ending.*: $/');
$connection->print('1981-Mar-07 17:00');
$connection->waitfor('/.*interval.*: $/');
$connection->print('10m');
$connection->waitfor('/.*Accept.*: $/');
$connection->print('y');
$connection->waitfor('/.*Select.*: $/');
$connection->print('y');
$connection->print('q');
$connection->close;
exit 0;