i=0
while [ "${i}" -lt 8 ]
  do
  i=`expr ${i} + 1`
 perl ./tpcb.pl --host=ndb13 -i --port=15001 --loops=1000 --log=/tmp/log.out &
  done
i=`ps -e |grep perl |wc -l`

while [ "${i}" -gt 0 ]
do
  sleep 10
  i=`ps -e |grep perl |wc -l`
done
perl ./tpcb.pl --host=ndb13 -i --port=15001 --truncate
echo "Done!!!"