Re: Perl an array of sockets

[NetWallah]

I have not used EV event loops, but this code looks suspicious:

sub incoming
{
      my $w=shift;
      $fh=$w->fh->accept or die; <<<<<<<

You are using a GLOBAL $fh , then attaching another watcher to it that calls back "sub cliente()".

Try deleting the global "my $fh", and making it local to sub incoming().