Состояние сокета в Perl

Имеется установленное соединение с сервером через сокет. Хотелось-бы как-то периодически проверять состояние этого соединения, но как это сделать я что-то не пойму, может кто знает? Переменная с сокетом доступна.