XS(XS_Net__LibnetRaw_libnet_write_ip)
{
    dXSARGS;
    if (items != 3)
        Perl_croak(aTHX_ "Usage: Net::LibnetRaw::libnet_write_ip(sock, packet, len)");
    {
        int     sock = (int)SvIV(ST(0));
        u_char *        packet = (u_char *)SvPV(ST(1),PL_na);
        int     len = (int)SvIV(ST(2));
        int     RETVAL;
        dXSTARG;

        RETVAL = libnet_write_ip(sock, packet, len);
        XSprePUSH; PUSHi((IV)RETVAL);
    }
    XSRETURN(1);
}

##</code><code>##

    INIT:
        if(  0 == len  )
            len= SvCUR(ST(1));