perl -E"$s=time(); $i=0; ++$c, rand()*rand() while time() < $s+5; say $c/5"
3210038.8