いまだに socket 関数群を直接たたいてる人もいるみたいですが、普通に IO::Socket::INET つかった方が楽です。

最近は IO::Socket::INET->new() すると自動的に $sock->autoflush(1) されるので、そもそも気にする必要ないし。