Win32::API->Import($S{DLL_path}, 'int RegisterClient2(int *pnClientId, char *pszIPAddress)');

...

my $result = RegisterClient2($client_id, $S{read_IP});