foreach x (ppagent*/neg)
  /bin/cp protoneg $x
end
gawk -f fixppagents