Select Code to Download

sub read_data {
    # accept data from the socket and put it on the queue
...
    shutdown $socket, 2;
    close $socket;
}