Add pullshaper.tcl script