#!/usr/local/bin/perl
# random-normal.pl -- Erzeugt normalverteilte Zufallszahlen.

use Math::Random;                    # CPAN-Modul

# Fuenf Zufallszahlen einer Normalverteilung mit Durchschnitt 10
# und Standardabweichung 0.5:
@list1 = random_normal(5, 10, 0.5);
print join("\n", @list1), "\n", "-" x 30, "\n";

# Einzelne Zufallszahl aus einer Normalverteilung mit
# Durchschnitt 0 und Standardabweichung 1 (Defaultwerte):
for (1 .. 5) { $zuff  = random_normal(); print $zuff, "\n"; }