--- /dev/null
+package require TclCurl
+
+# These tests has some urls that don't exists outside my system,
+# so IT WON'T WORK FOR YOU unless you change them.
+
+set curlHandle [curl::init]
+$curlHandle configure -url "127.0.0.1" -bodyvar body -noprogress 1
+$curlHandle perform
+
+$curlHandle configure -url "127.0.0.1/~andres/" -bodyvar newBody
+$curlHandle perform
+
+$curlHandle cleanup
+
+puts "First page:"
+puts $body
+
+puts "Second page:"
+puts $newBody
+
+# You can also use it for binary transfers
+
+curl::transfer \
+ -url {127.0.0.1/~andres/HomePage/getleft/images/getleft.png} \
+ -bodyvar image -noprogress 1 -verbose 1
+
+if [catch {open "getleft.png" w} out] {
+ puts "Could not open $out."
+ exit
+}
+
+fconfigure $out -translation binary
+puts $out $image
+close $out
+
+