sub closetonormal
  {
  my($up, $low) = @_;
  my $normal = 0;
  $normal += rand for 1..12; # from Wikipedia
  $low + ($up - $low) * $normal / 12;
  }
[download]