open and read a file content to a variable

set l_file_handle [::open $a_file r]
 set content [::read $l_file_handle]
 ::close $l_file_handle