$sock = new IO::Socket::INET( LocalPort => '8080',Porto => 'tcp',Liste
+n => '1', Reuse => '1')
I think you mean ($key =~ s/Porto/Proto/)
1:
$sock = new IO::Socket::INET( LocalPort => '8080',Proto => 'tcp',Liste
+n => '1', Reuse => '1')
Have you tried adding
LocalAddr? Beyond that, it has been a long time since I have made a trek into rolling my own networking code.
Footnotes:
- 1 - Although, from my reading of IO::Socket::INET, it appears that they are functionally equivalent, since Proto => 'tcp' is the default.