perl -e 'for(;;) { }'

##</code><code>##

  PID USERNAME PRI NICE  SIZE    RES STATE    TIME   WCPU    CPU COMMAND
38691 eXile     64   0  2160K  1444K RUN      1:30 92.84% 92.04% perl5.8.2

##</code><code>##

perl -e 'for(;;) { sleep 100 }'

##</code><code>##

  PID USERNAME PRI NICE  SIZE    RES STATE    TIME   WCPU    CPU COMMAND
...
38692 eXile     10   0  2160K  1480K nanslp   0:00  0.00%  0.00% perl5.8.2