#print $channel "$cmd\n";
    #while (<$channel>) {
    print {${$channel}} "$cmd\n";
    while (<${$channel}>) {