my $RegisterClient2 = Win32::API->new($S{DLL_path}, 'RegisterClient2', 'PP', 'I', '_cdecl');
my $result = $RegisterClient2->Call($client_id, $IP);