<br><font size=2 face="sans-serif">Hi all:</font>
<br><font size=2 face="sans-serif">I am new to LA.pm. I am still in Boston.pm.
Guess that is legal :-) </font>
<br><font size=2 face="sans-serif">Any likelihood of seeing Damian Conway
delivering 'Quantum Superpositions' or Lingua::Franca::Perligata?</font>
<br>
<br><font size=2 face="sans-serif">Got a question. I am testing a server
that is running on the Big Iron. This trivial server simply echoes input
and disconnects upon receiving 'END' or 'end'. </font>
<br><font size=2 face="sans-serif">When I run a telnet client from my linux
box, it works fine. However when I run my perl socket client, it blocks
on receive. That is, the script seems to 'hang' when it is receving. Seems
like he is not seeing something telling him that there is no more. Has
'select' anything to do with it?</font>
<br>
<br><font size=2 face="sans-serif">Here is the code.....</font>
<br><font size=2 face="sans-serif">#!/usr/bin/perl -w</font>
<br>
<br><font size=2 face="sans-serif">use IO::Socket;</font>
<br><font size=2 face="sans-serif">my $sock = new IO::Socket::INET (</font>
<br><font size=2 face="sans-serif">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; PeerAddr =&gt; 'mvs',</font>
<br><font size=2 face="sans-serif">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; PeerPort =&gt; '3000',</font>
<br><font size=2 face="sans-serif">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Proto =&gt; 'tcp',</font>
<br>
<br><font size=2 face="sans-serif">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; );</font>
<br><font size=2 face="sans-serif">die &quot;Could not create socket: $!\n&quot;
unless $sock;</font>
<br><font size=2 face="sans-serif">print $sock &quot;USQ1&quot;;</font>
<br><font size=2 face="sans-serif">print &quot;Response: &quot;, &lt;$sock&gt;;</font>
<br><font size=2 face="sans-serif">print $sock &quot;Hello there!\n&quot;;</font>
<br><font size=2 face="sans-serif">print &quot;Result : &quot;,&lt;$sock&gt;;</font>
<br><font size=2 face="sans-serif">print $sock &quot;end&quot;;</font>
<br>
<br><font size=2 face="sans-serif">close($sock);</font>
<br><font size=2 face="sans-serif">1;</font>
<br>
<br>