Select Code to Download

use IO::Socket;
use IO::Select;
...
}

close($sock);

use IO::Socket;                                          

...
$sock->close();
                                         
sleep 20;