perl -e "my $iters = 100_000; my $runs = 6; for my $sides (qw{1 2 3 4 6 8 10 20 100}) { printf '%-5s', qq(D$sides:); for (1 ..$runs) { my $tot = 0; for (1 .. $iters) { $tot += int(rand $sides)+1; } print ' ', $tot/$iters; } print qq(\n); } print qq(Perl $^V $^O\n)"