perl_client.cpp copy paste issue

[c0ncrete]

newXSproto(strcpy(buf, "GetBindZoneID"), XS_Client_GetBindX, file, "$$");should read newXSproto(strcpy(buf, "GetBindZoneID"), XS_Client_GetBindZoneID, file, "$$");

note: from rev 2416