Select Code to Download

  -5 ..   -1  [   1] #
   0 ..    4  [   7] #######
...
  10 ..   14  [   7] #######
  15 ..   19  [   3] ###
  20 ..   24  [   1] #

sub show_histogram
{
...
   } while ( $bin++ < $maxbin );
   print "\n  Scale: #=$scale\n" if $scale > 1;
}