RosettaCodeData/Task/Get-system-command-output/Tcl/get-system-command-output-1.tcl

set data [exec ls -l]
puts "read [string length $data] bytes and [llength [split $data \n]] lines"