use Test; use Statistics::Basic qw(:all toler=0); plan tests => 1; my $mean = mean(1,3,7); ok($mean != 3.7);