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