Select Code to Download

E:\perl5.8.1\bin>.\perl -MPOSIX=RAND_MAX -e"print RAND_MAX"

32767

use Math::Random::MT qw[ srand rand ];