Select Code to Download

my $socket;
my $max_tries = 50;
...
    sleep 1;
    sleep 1 if (rand() > .5); #some variance is good
}

$SIG{ALRM} = 'ALRMhandler';
my $line;
...
{
   ...see discussion...
}