在perl中生成1到100的随机数

#! perl
 
# 初始化 rand()
srand

print int( rand( 100 ) ) + 1