ps -l -p $$ | grep PPID | perl -ane '$i=0;
while($i<@F && $F[$i] ne q(PPID)){$i++};
print $i if $i < @F'