or download this
# This program parses a error_log for necessary information and output
+s a CSV file with the highest busy value for each 5 minute interval.
+
# The program also outputs a STAT file with the last 5 minute interval
+ of the CSV.
...
$string = $_->[2] for $maxima[-1];
my ($timeStamp, $rdy, $by, $rd, $wr, $ka, $log, $dns, $cls, $ap22, $sm
+22, $apache) = split /[,]/, $string;
print $FILE "<ED>$by</ED>\n<ECO>Max Busy</ECO>\n<ECE></ECE>";