$sock = new IO::Socket::INET( LocalPort => '8080',Porto => 'tcp',Liste
+n => '1', Reuse => '1')
[download]

I think you mean ($key =~ s/Porto/Proto/)¹:

$sock = new IO::Socket::INET( LocalPort => '8080',Proto => 'tcp',Liste
+n => '1', Reuse => '1')
[download]

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.