proc cat { fn } {
puts "contents of $fn follows:"
set f [open $fn r]
set ln 0
while {[gets $f d] >= 0} {
  incr ln
  puts "$ln: $d"
  }
close $f
puts "saw $ln lines."
}



cat "nvram:startup-config"