1 {h2 "Northwind Sample With SQLite3"} 2 {#HTML
<p>Some helper code to fetch data from an URL ...</p>} 3 {if {![catch {package require TclCurl}]} {
    proc fetch_url {url} {
        set handle [curl::init]
        $handle configure -url $url -bodyvar result -sslverifypeer 0
        catch {$handle perform} code
        if {$code != 0} {
            return -code error [curl::easystrerror $code]
        }
        $handle cleanup
        return $result
    }