sub read_data {
    # accept data from the socket and put it on the queue
    my ($queue, $socket) = @_;
    while (<$socket>) {
        print "listener got: $_";
        $queue -> enqueue(time." $_");
    }
    close $socket;
}