Select Code to Download

    TRY: for (1 .. $maxretries) {
        eval {
            $sock ||= outconnect() || die $diag=$!;
...
            $diag ||= $e;
            $sock = undef;
            next TRY;