ok( 0
   ,opcmsg( OPC_SEV_MINOR
          ,$application
          ,$object 
          ,"this is ia test of a perl XS implementation of opcmsg (test 2)" 
          ,$msg_group 
          ,$ENV{'HOSTNAME'} 
          )
); #10