jdp - An 8 line server. Serves text files out of the current directory.
proc s {c a p} { set o [lindex [split [gets $c] " "] 1] puts $c [read [set f [open ".$o"]]] close $f close $c } set s [socket -server s 3210] vwait forever