Posted to tcl by samaelszafran at Thu Feb 25 11:00:25 GMT 2010view pretty

#!/usr/bin/env tclsh

proc GetThatMotherFuckersIP {} {
        gets stdin input
	puts stdout "yourinput: $input"
}

GetThatMotherFuckersIP