Create nmap.tcl

Nmap port scan tcl.