Podrias usar una mezcla del sistema de impulsos electronicos de 1 y 0 [no recuerdo el nombre] y binario (estoy intentado ayudarte, la verdad unicamente tengo pocos conocimientos de electronica)

O algo mas complicado que lo que dijo CeLaYa podria ser obtener la resolucion de la pantalla y a partir de eso alinearlo (no quiere decir que sea menos efectivo, de hecho da el mismo resultado que el codigo de CeLaYa)

 

En Visual Basic, se usaria "Manejo de Errores" [usando Resume Next, GoTo, etc]

Pero en Perl podrias, como dijeron arriba, hacer un "If" con el resultado de la conexion del socket [es decir, comprobar si funciono o no] y a partir de ese resultado reconectar el socket (deberia ser mas facil, maldito Larry Wall )

Ya de paso ¿no existen funciones similares a Resume Next [Visual Basic] en Perl?

Seria mas productivo y efectivo [tal vez] hacerlo de la ultima manera (y mas corto, por supuesto)