$ perl -e 'my ($n, $s, $r) = @ARGV; my %x; for (1 .. $r) { my $y = 0; for (1 .. $n) { $y += 1 + int rand $s } ++$x{$y} } printf "Chance of rolling %3d is %3d%%\n", $_, int $x{$_} / $r * 100 for sort { $a <=> $b } keys %x' 2 6 1000000