#!/bin/perl5

use strict;
use warnings;
use Data::Dumper;

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

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

#die Dumper $ovs;

my $return = $ovs->send;

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