use Math::Random;
$random = random_uniform();