popen tcp t localhost 333 localhost echo
pinit tcp tcpsyn
pset tcpsyn tcp sport 333
pset tcpsyn tcp dport echo
pset tcpsyn tcp seq 55555
pset tcpsyn tcp flags SYN
pset tcpsyn tcp off 6
plen tcpsyn tcp 24
pwrite tcpsyn l 5 0x020405b4

pinit tcp tcprcv

t.send tcpsyn

pset tcpsyn tcp seq [expr [pget tcpsyn tcp seq]+2]

puts [plist tcpsyn]

t.send tcpsyn
