#!/usr/local/bin/perl -w
use strict;
use Math::Random qw( random_normal );
use Statistics::Histogram;
5
my @data = random_normal( 100_000, 10, 2 );
7
print get_histogram( \@data, 20 );