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

  1. #!/usr/bin/env tclsh
  2.  
  3. proc GetThatMotherFuckersIP {} {
  4. gets stdin input
  5. puts stdout "yourinput: $input"
  6. }
  7.  
  8. GetThatMotherFuckersIP