Select Code to Download

$N=pop;for(1..$N){%h=map{int rand 10,0}1..$ARGV[0];$g+=keys%h>9}print$
+g/$N

#!perl -l
$N=pop;for(1..$N){$g+=keys%{{map{int rand 10,0}1..$ARGV[0]}}>9}print$g
+/$N