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

##</code><code>##

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