Select Code to Download

procs ------memory------- --swap-- ---io--- -system-- ----cpu----
 r b swpd free buff cache  si  so   bi   bo  in    cs   us sy id  wa
 0 0  0   9999 9999 9999    0   0   99   99  9999  999  9  9  99  9

my @stat = `vmstat`;
foreach $line(@stat){
...
          my @fo = split /[[:blank:]]+/, $line;
          print "Message: CPU user time: $fo[13]\n";}
}