or download this
#!/usr/bin/perl
use strict;
...
procs -----------memory---------- ---swap-- -----io---- -system-- ----
+--cpu-----
r b swpd free buff cache si so bi bo in cs us s
+y id wa st
1 0 68716 390444 9520 674036 0 1 25 27 217 235 8
+2 89 1 0