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

...

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