$ perl -le '$x = rand 2; print $x'
0.0874574767967786