$ perl -e 'print `ps -l p $$`,$/'
  F S   UID   PID  PPID  C PRI  NI ADDR    SZ WCHAN  TTY        TIME CMD
000 S   501  5150   561  0  69   0    -   614 pipe_w pts/2      0:00 perl -e pri