$ perl -Mmygetppid -e "print getppid()"
Hello world!
23726