Extremely easy to find.

Please reference this link to see the original question by Daniel Moree.

Perl socket problem
I'm attempting to use a perl script to interface with my Visual Basic 
+6
program using Winsock. I've got my program setup to connect and works
great if i connect to another winsock program, but it acts funny
connecting to my perl script. The Perl code is below:

#!c:/Perl/bin/Perl.exe
use IO::Socket;
$server = IO::Socket::INET->new(LocalAddr => '10.40.0.10',
LocalPort => '8777',
Proto => 'tcp',
Listen => 1,
Reuse => 1);

die "ERROR: $!\n" unless $server;

print "Waiting on connections...\n";
while($client = $server->accept()){
print "Connection made, reading data...\n";
print <$client>;
print "Connection closed...\n";
}

$server->close();

All the program is supposed to do is open a socket on port 8777 for tc
+p.
Listen for any incomming connections then read the one line of data
comming in. I've read on the internet and in my perl in a nutshell boo
+k
that the above code should work. But they all say the same thing. You
must get the line of data and scan it for a character that lets the pe
+rl
script that the line is done. Problem is, when the script runs, i get 
+as
far a connection made then it will do nothing until i close the VB Win
+sock.

Anyone got a reader for sockets that will know when to stop reading? I
haven't found any examples on the internet on how to do it, just that
everyone says it can be done. I'd really appreciate the help!

Daniel Moree
[download]

This is ridiculous.

s**lil*;  $*=join'',sort split q**;  s;.*;grr; &&s+(.(.)).+$2$1+; $; =
qq-$_-;s,.*,ahc,;$,.=chop for split q,,,reverse;print for($,,$;,$*,$/)
[download]