$client->{socket} = IO::Socket::UNIX->new(Type => SOCK_STREAM, Listen => 5, Local => $filename);
chmod 777, $filename;

##</code><code>##

$sel->add($client->{socket});

##</code><code>##

while($sel->can_read) {
...
}

##</code><code>##

defined ($r) && (select($r, undef, undef, $timeout) > 0)) ? handles(&vec, $r) : ();