Added createPA tcl script.