Select Code to Download

#!/usr/bin/perl -slw

...
}

print scalar(keys(%$bins));

#!/usr/bin/perl -slw
use strict;
...

printf "Buckets used: %d, total values %d \n",
    scalar keys %bins, sum values %bins;