Определить закрытие сокета

Привет!

Как в Perl определить закрылся ли сокет на серверной стороне? У меня есть программа которая подключается к удалённому серверу и случает его. Сервер бывает перезагружается и соединение разрывается. Как узнать что сокет закрылся, что бы я мог переподключится автоматически.