Process memory usage summary in AIX

This is from the Performance Management book on the AIX Infocenter. A useful command to list the top 15 memory-using processes on the system.

svmon -Pt15 | perl -e 'while(<>){print if($.==2||$&&&!$s++);$.=0 if(/^-+$/)}'