#!/usr/bin/perl

use Mon::Client;
use Sys::Hostname;
$host = hostname();
$service = "test";
@services = ('test','diskspace', 'ora-listener','ping');

$c = new Mon::Client (
                   host => "moni",
                   port => 2233
);

$c->connect();

%s = $c->list_opstatus;

$c->enable_watch($host)
    || die "problem enabling host (enable_watch) ($!)\n";