...
local *FH = $oSocket;
print  FH $sSend;

while (1) {
    sysread($oSocket, $data_read, 4096,length($data_read));
    $sRet .= $data_read;
    last if ($data_read =~ /<\/xml>/i);

};
close (FH);
print $sRet;