Если уж использовал IO::Socket, то код можно было бы сделать более приятным, пользуясь методами send и recv, т.е.
$socket->send();
Хотя не смертельно