Select Code to Download

use IO::Socket;
use IO::Select;
...
    Time::HiRes::sleep(.5);
    $socket->close() or die "error closing";
}

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