You need to 'accept' the socket. The old socket is then reused:

print "Incoming connection detected!\n";
my $new_sock = $listen_sock->accept
or die "Could not accept socket: $!";
[download]

then you should do a

recv $new_sock,$z,10000,0;
[download]

to read from your socket. tye will tell you that <SOCKET> is bad, mmmmkay?

Sorry.. too tipsy to do more than cut and paste from my own code.

As near as I can tell 'accept' clones the socket, then goes back to listening on the old one. If anyone here would care to explain...

The docs are pretty short on this operation. Going through other people's code is the best way in this case.

____________________
Jeremy
I didn't believe in evil until I dated it.