Olá pessoal,<br>Acabei de entrar na lista e já peço a ajuda de vcs :( <br><br>Eu já passei e repassei o o script e não estou conseguindo ver no que estou errando <br><br>Preciso conectar a um servidro e receber as informações que vem dele 
<br><br>fiz o seguinte:<br>$server = IO::Socket::INET-&gt;new(&nbsp; PeerAddr =&gt; &quot;$ip_server&quot;,<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; PeerPort =&gt; &quot;$port_server&quot;,<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Proto&nbsp;&nbsp; =&gt; &quot;tcp&quot;,
<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Timeout =&gt; &quot;10&quot;<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ) or die ( &quot;Error: $!\n&quot; );<br>print $server &quot;Heloo&quot;;<br>my $res = &lt;$server&gt;;<br>close ( $server );
<br>print &quot;$res&quot;;<br><br><br>só que nao me retorna nada <br>se eu dou um telnet no servidor ele me retorna a informacao ou seja o servidor esta enviando.<br><br>Alguem pode me ajudar ? <br><br>Obrigado a todos <br>
André<br>