open FIN, "dwtest.dat" or die;
my $bytes = do { local $/; <FIN> }; # slurrrrrp
my $bits = unpack "B*", $bytes;
my $count = $bits =~ tr/1/1/;
print "$count\n";