perl -e 'print rand, "\n"';
0.315919870045036