proc collect {} {
set f [clock seconds]
set s [exec "sh proc cpu sort 5sec"]
set c [open $f a]
puts $c $s
close $c
}


collect