&register_handler("STDERR", sub {
                  my($channel, $buffer) = @_;
                  print "** STDERR -- I received this: ", $buffer->bytes;
                      });