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

##</code><code>##

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