my($self, $cgi, $config) = @_; print <
No channel
EOF