[ns] Goodput script

Dear NS users..
 
I'm search for workable script to measure the goodput for one or more TCP variant
 
any one can help to provide this tcl script?
 
Thanks