C:\Windows\system32>perl -E"$r=int rand(1e15+1); say $r==1e15 ? 1 : sprintf '0.%015s', $r"

0.176483154296875