Tiny, active code segment
...    
$sr_len = sysread(IN, $buf, $bsize);  # SysRead Length    
last  if $sr_len == 0;      
while($buf)  {       
    $rgb=substr($buf, 0, 6, '');  # Nibble 6 bytes       
    $rgb2c{$rgb}++;    
}