kill `ps Af | grep perl | grep -v grep | awk '{ print $2 }'`