Select Code to Download

my $c = chr(0xff);
my $sum = 0;
...
    (ord($c) & 0x80) && ($sum++); 
}
print $sum;

use strict;
use warnings;
...
    }
} 
print "$sum bits are set\n";