use Config; print $Config{randbits}; #### use Math::Random::MT qw(srand rand);