use Fcntl qw/O_NONBLOCK/;
fcntl ( $sock, O_NONBLOCK, my $xx );