What is your protocol? Is a network connection limited to one request (one XML packet)?

I see a potential problem with mixing buffered I/O with recv:

        while( <$tele_client>) {
            if ($tele_client){
                $tele_client->recv($test, 100000000);
[download]

For stream sockets I believe send is equivalent to syswrite and recv is equivalent to sysread. In any case, mixing the two forms of I/O is not a good idea. You are aware that <$tele_client> will read a line from the socket connection, right?

If your protocol is limited to one request per connection, why not just slurp in the entire XML packet:

  $test = do { local $/; <$tele_client> };
  my $uasdata = $xs->XMLin($test);
  ...
[download]