Select Code to Download

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

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