{
             chomp;
             my $dataout = $_;

             my %humanize;
             @humanize{ qw/ Blue Red Green Yellow / } = ( unpack 'x252' . 'H2' x 200, $dataout )[ 0, 12, 56, 120 ];


             foreach my $index ( qw/ Blue Red Green Yellow / ) {
                  if ( $humanize{ $index } eq '01' ) { syslog( 'warning', "Color value bad $humanize{$index}"); $status_code = 1; }
           }
         }