for i in `ps ax | grep perl | cut -f1 -d" " `
復旧〜