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

32767

##</code><code>##

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