В Perl функции rand () можно указывать только верхнюю границу желаемого числа, в результате чего она возвращает случайное число от нуля до указанного пользователем.
Однако может возникнуть необходимость получить случайное орицательное число, или случайное число на промежутке, например, от 100 до 1000. Вот небольшая модификация функции rand, которая ршает эти проблемы:

sub Random($$){
($from, $to) = @_;
$random = $from + rand(($to - $from));
return $random;
}
Использование:
$var = Random($lower, $upper);

Скачать