my $res = $sock->fcntl(F_GETFL, 0);
$sock->fcntl(F_SETFL, $res | O_NONBLOCK);