Extract contents of line from file given the line number in TCL

Question

I know this question has been asked in the context of perl and grep, but I\'m wondering if this is possible using TCL.

Currently I\'m using the scanmatch command to f