RosettaCodeData/Task/Flow-control-structures/Tcl/flow-control-structures-4.tcl

if {[catch { ''... code that might give error ...'' } result]} {
    puts "Error was $result"
} else {
    ''... process $result ...''
}