#!/usr/bin/perl -w

use strict;

use Astro::Time;
use ATNF::MoniCA;
use Getopt::Long;

my $server = 'monhost-mop.atnf.csiro.au';

my $mon = monconnect($server);
die "Could not connect to $server\n" if (!defined $mon);

my @monpoints = ('site.environment.weather.Pressure',
		 'site.environment.weather.Temperature',
		 'site.environment.weather.VapourPressure');

my @vals = monpoll($mon, @monpoints);


print join(" ", map { $_->val } @vals), "\n";