D:\>perl -MMath::MPFR=":mpfr" -MPDL -le "for(1..10) {$r = PDL->random(); Rmpfr_dump(Math::MPFR->new($r.at(0)))}"
0.11101001100100000110110101110010100111100110010011000E-1
0.10110010100010010011101011001111010011110001011001001E-2
0.11101000000110110001010100000001011101100000111011111E-3
0.10110010010001101100111011100101000000001001100100011E0
0.11010000000101010100010000110000010010011110111101111E0
0.11101010010011100000100010101111011100001010000100111E-3
0.11001010100111101101000101101010111011100110010001111E-1
0.11111111111011111000010100111010010010001010101010110E-1
0.10111001110100001011011100010100001101011001101011010E-2
0.11011111011110110001110011111111011111010111110001100E-1