$ perl -e '
    my $iters = 100_000;
    my $runs = 6;

    for my $sides (qw{1 2 3 4 6 8 10 20 100}) {
        printf "%-5s", "D$sides:";

        for (1 .. $runs) {
            my $tot = 0;

            for (1 .. $iters) {
                $tot += int(rand $sides)+1;
            }

            print " ", $tot/$iters;
        }

        print "\n";
    }
'

##</code><code>##

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

##</code><code>##

D1:   1 1 1 1 1 1
D2:   1.49943 1.5049 1.49996 1.49833 1.50001 1.50155
D3:   2.00469 1.99941 1.99753 1.99721 1.99762 2.00254
D4:   2.49589 2.49891 2.49487 2.50727 2.49977 2.49472
D6:   3.49716 3.49463 3.49886 3.50365 3.49936 3.50401
D8:   4.50082 4.51098 4.50972 4.49368 4.50158 4.5112
D10:  5.4949 5.48275 5.50242 5.50131 5.49563 5.51278
D20:  10.47763 10.47848 10.50873 10.48685 10.48474 10.51209
D100: 50.36542 50.49534 50.49152 50.40469 50.53791 50.34646