Select Code to Download

        pipe($child_reader, $child_writer);
        binmode($child_reader, ":encoding(UTF-8)");
...
            child_writer();
            exit;
        }

    my $select = IO::Select->new();
    $select->add(fileno $child_reader);
...
            }
        }
    }

        # $msg is the message to send, it is guaranteed < PIPE_BUF and
+ ends in \r\n
        my $sigpipe = 0;
...
        } else {
            warn "Write to child_writer failed - $!";
        }