Select Code to Download

my $stime = time;

...

my $etime = time;
print($etime-$stime, " seconds to count the $count 1s in 32_000_000 bi
+ts\n");

4 seconds to count the 14665902 1s in 32_000_000 bits