# Receive response.
my $read_buf = "";
my $response;

for (;;) {
   my $rv = sysread($oSocket, $read_buf, 4096, length($read_buf));
   die("Unable to read from the socket: $!\n") if not defined $rv;
   die("Premature end of data\n")              if not         $rv;

   if ($read_buf =~ s{(.*</xml>)}{}si) {
      $response = $1;
      last;
   }
}