        capture program drop mysumhtm
        program define mysumhtm
            syntax varlist using [, replace append ] 
            tempname fh
            file open `fh' `using', write `replace' `append'
            file write `fh' "<html><body><table>"
            file write `fh' _n "<thead><th>variable</th>" ///
                "<th>mean</th><th>sd</th></thead>"
            foreach v of local varlist {
                quietly summarize `v'
                file write `fh' _n "<tr><td>`v'</td><td>" ///
                     (r(mean)) "</td><td>" (r(sd)) "</td></tr>"
            }
            file write `fh' _n  "</table></body></html>"
            file close `fh'
        end
        mysumhtm * using example.html, replace
        type example.html