1 package require TclCurl
3 if {$tcl_platform(platform)=="windows"} {
4 set certFile [file join $env(windir) curl-ca-bundle.crt]
6 set certFile /usr/local/share/curl/curl-ca-bundle.crt
9 ::curl::transfer -url https://www.paypal.com/ -cainfo $certFile \
13 puts "https://www.paypal.com/ saved in 'paypal.html'"