sleep 10 | perl -e '$ppid=getppid();$sibs=`pgrep -P $ppid`;print("MY PID: $$\nPARENT: $ppid\nSIBLINGS: $sibs\n")'
MY PID: 79496
PARENT: 563
SIBLINGS: 79495