# $conn ||= connect(); if (not $conn or is_dead($conn) { $conn = connect(); } my $status = send($conn, 'abc'); if ($status == CONN_DEAD) { $conn = connect(); $status = send($conn, 'abc'); }