Select Code to Download

#! perl -slw
use strict;
...

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

c:\test>824030 -X=10 -Y=10
{
...

Buckets used: 81, total values 100