while( my $addr = recv( $socket, my $input = "", 1500, MSG_DONTWAIT ) ) {