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";}
}