use strict;
use warnings;

use Term::ANSIColor qw{ :constants };

my $rxTriggers = do {
   my @triggers = (
      q{Soft Errors: },
      q{Hard Errors: },
      q{Transport Errors: },
      q{Media Error: },
      q{Device Not Ready: },
      q{No Device: },
      q{Recoverable: },
      q{Illegal Request: },
      q{Predictive Failure Analysis: },
      );
   local $" = q{|};
   qr{(@triggers)(\d+)}
   };

my @iostatCmd = qw{ /usr/bin/iostat -En };
open my $iostatFH, q{-|}, @iostatCmd
   or die qq{open: @iostatCmd |: $!\n};

print q{-} x 60, qq{\n};
while ( not eof $iostatFH )
{
    my $record;
    $record .= $_ for
       map { eof $iostatFH ? () : scalar <$iostatFH> }
       1 .. 5;

    substr $record, 16, 0, RESET;
    substr $record,  0, 0, BOLD;
    $record =~
       s{$rxTriggers}
        { $2 eq q{0}
          ? $1 . GREEN . $2 . RESET
          : YELLOW . $1 . RED . $2 . RESET }eg;

    print $record;
    print q{-} x 60, qq{\n};
}

close $iostatFH
   or die qq{close: @iostatCmd |: $!\n};