perl -e 'kill 9, getppid'