ps ax | grep perl | sed 's/ .*//' | xargs kill -9