#! perl -slw
use strict;
use Inline C => Config => BUILD_NOISY => 1, LIBS => 'c:\test\853196dll.lib';
use Inline C => <<'END_C',  NAME => '_853198_IC', CLEAN_AFTER_BUILD => 0;

int RegClient( SV *id, SV *IP ) {
    int c_id = SvIV( id );
    char *c_ip = SvPVX( IP );
    return RegisterClient2( &c_id, c_ip );
}

END_C

print RegClient( 123, 'fred' );