use MATH::Random;
$a = random_uniform(45);
print "\na=$a";