Select Code to Download

perl -e '
for (`ps aux`){ 
   ($pid,$ppid) = (split/\s+/)[1,2];
   print "$pid $ppid\n"}
'