http://www.perlmonks.org?node_id=553098


in reply to random number with range

my $num = $min + rand($max - $min);
or...
my $int = $min + int(rand($max - $min));
if you want integers.