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

# average: 3.501