裸のSocketは素人にはお勧めできない。
素直にLWPにしとけ。
どうしてもSocketを使いたいなら、せめてIO::Socketにしとけ。