$sock->send($request) or die "send: $!";

##</code><code>##

    unless ($_=$sock->send($request)) {
        die "send: $!"
          unless $! =~ /unreachable/;  # Or whatever
        sleep 1;
    }