Select Code to Download

use IO::Select;
use IO::Socket::INET;
...
    $c->send("abc");
    sleep(3);
}

use IO::Select;
use IO::Socket::INET;
...
    }
    sleep(1);
}

use IO::Socket::INET;

...
}