my $oSocket = IO::Socket::INET->new(PeerAddr => $HostName,            
+                                               
                                    PeerPort => $Port,                
+                                       
                                    Timeout => $SocketTimeout,
                                    Type => SOCK_STREAM);

my $sSend = "<?xml version=\"1.0\"?> <request>" .
"<connectionstring>" . $ConnectionString .
"</connectionstring>" .
"<sql><![CDATA[" . $sSQL . "]]></sql></request>";                     
+                         

local *FH = $oSocket;
print  FH $sSend;
while (<FH>) { print $_ };


##</code><code>##

...
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;