$ perl5.8.5 -le"srand(1); print rand for 1 .. 10"
0.0416303447718782
0.454492444728629
0.834817218166915
0.3359860301452
0.565489403566136
0.00176691239174431
0.18758951699996
0.990434079937664
0.750497133229519
0.366273638152734