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
##</code><code>##

my @stat = `vmstat`;
foreach $line(@stat){
    if ($line =~ /^procs/){next}
    if ($line =~ /us/){next}
    else {chomp $line;
          my @fo = split /[[:blank:]]+/, $line;
          print "Message: CPU user time: $fo[13]\n";}
}