#!/usr/bin/perl

use strict;
use warnings;

use lib '/home/nhwatson/lib/perl/';
use Mine::Openview::opcmsg;

my $ovs = new Mine::Openview::opcmsg {
    msg => 'This is a test',
    app => 'Perl script',
    obj => 'Perl module',
    sev => 'warning',
    msgg => 'message group',
    ser => 'service ID'
    };

my $return = $ovs->send;

print "\nreturn = ".$return."\n";,