Are you getting any error messages? It would be immensely helpful if we could have those.
You should also check for success on the accept() call: my $client = $socket->accept() or die "accept failed: $!";. Also, in your die statement, you want $! (system call errors), not $@ (eval errors).
In reply to Re: Long Life IO::Socket Server
by lostjimmy
in thread Long Life IO::Socket Server
by r1n0
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |