local $\ ="\0";
print $sock $xml;