my $res; 
$res += 1+int( rand(6) ) for 1..10000; 
print qq(average: ), $res/10000;

# average: 3.501


##</code><code>##

my $tenk;
$tenk += 1+int( rand(6) ) for 1..10000;
ok ( $tenk/10000 > 3.4, "average randomness ok (10000d6 / 10000 > 3.4)" );
ok ( $tenk/10000 < 3.6, "average randomness ok (10000d6 / 10000 < 3.6)" );