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