The $Math::Pari::initprimes variable controls initialization of precalculated primes. Since that doesn't go through the perl iface, but is a canned C routine, initialization is fast. To avoid setting that in a BEGIN block, you can say:

use Math::PariInit qw( primes=12000000 );
[download]

See the Initialization section of the Math::Pari docs.