Select Code to Download

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

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

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

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