Code:

proc get_line {file line} {  set fp [open $file r]  set r {}  while {![eof $fp]} {    set i 0    while {$i < $line} {      set r [gets $fp]      incr i    }    break  }  catch {close $fp}  return $r}

Code:

my code hereset test [get_line file.name 5]