Select Code to Download

#!/usr/bin/perl -w
use strict;
...
    }
    sleep 3;
}

send succeeded
send failed: Connection refused.
...
.
.
.

send succeeded
send succeeded
...
.
.
.

send succeeded
send failed: Destination host unreachable.
...
.
.
.