perlの乱数がrand()

引数で最大値指定。
引数がないなら1と同じ。

my $num = rand();

返り値は小数だよ。