sub register_client2 {
   my ($ip) = @_;
   my $id = pack('l', 0);  # Allocate space
   $register_client2->Call($id, $ip)
      or return ();
   return unpack('l', $id);
}

my ($id) = register_client2($ip)
   or die;