XS(XS_REGTEST_rcv_msg)
{
    dXSARGS;
    if (items != 8)
	Perl_croak(aTHX_ "Usage: REGTEST::rcv_msg(query, queryLen, testHost, testPort, prodHost, prodPort, testMsg, prodMsg)");
    {
	char *	int	char *	char *	char *	char *	char *	testMsg;
	char *	prodMsg;
	int	RETVAL;

	RETVAL = rcv_msg(query, queryLen, testHost, testPort, prodHost, prodPort, testMsg, prodMsg);
    }
    XSRETURN(1);
}