use Tibco::Rv;

my ( $rv ) = new Tibco::Rv(
      service => $service,
      network => $network,
      daemon => $daemon
);

my ( $msg ) = $rv->createMsg;
$msg->addString( field1 => 'myvalue' );
$msg->addString( field2 => 'myothervalue' );
$msg->sendSubject( 'ABC' );

$rv->send( $msg );