perl -e '$bytes= -s "dwtest.dat"; 
open(FIN,"dwtest.dat") or die "cant open file\n"; 
$sum=0; 
for($i=0;$i<$bytes;$i++){ 
read(FIN,$c,1); 
(($c | 0x01) && ($sum++)); 
(($c | 0x02) && ($sum++)); 
(($c | 0x04) && ($sum++)); 
(($c | 0x08) && ($sum++)); 
(($c | 0x10) && ($sum++)); 
(($c | 0x20) && ($sum++)); 
(($c | 0x40) && ($sum++)); 

(($c | 0x80) && ($sum++)); 
} 
print "$sum bits are set\n";'