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