Perlでソケットクライアント

何回もはまったのでサイドメモしておく．
メッセージを送信するとき必ずソケットのバッファリングをしないように設定すること．
その部分だけ抜き出した置くと

select(SOCK);$| = 1;select(STDOUT);

こんな感じ．
サーバ側でacceptしたのにメッセージが受信できないと思ったらこの部分を疑うこと．
っていうか普通は参考にするプログラムには書かれているはず・・・