2.6 乱数を生成する

Perl Cookbook 
$random = int( rand( $Y-$X+1 ) ) + $X;