echo test | perl -e '$ppid=getppid();$kids=`pgrep -P $ppid`;print("MY PID: $$\nPARENT: $ppid\nSIBLINGS: $kids\n")'
MY PID: 79493
PARENT: 563
SIBLINGS: