if { [catch {
    set output [exec "pslist.exe"]
} err] } {
    puts "failed: $err, error info: $::errorInfo"
} else {
    puts "look good: $output"
}