You havn't shown your code, but read "perldoc IO::Socket" and look for the "connected" method. Usually you can write your socket code to test for connection, like:

if( $sock->connected){  .......  }
[download]

That way you can avoid the error, by closing and cleaning up the $sock if it is gone.