1 package require TclCurl
3 set curlHandle [curl::init]
4 $curlHandle configure -url "Shire.Asturias.com" -errorbuffer errorMsg
6 if {[catch {$curlHandle perform}]} {
7 puts "The error message: $errorMsg"
10 $curlHandle configure -url "Shire.Asturias.com" -errorbuffer error(msg)
12 if {[catch {$curlHandle perform}]} {
13 puts "The error message: $error(msg)"
19 catch {curl::transfer -url "Shire.Asturias.com" -errorbuffer error(msg)}
21 puts "Error: $error(msg)"