C:\>perl -MMath::GMP -le "print int(Math::GMP->new(311) ** 100);"
385227681

##</code><code>##

C:\>perl -MMath::GMPz=":mpz" -le "print Rmpz_get_ui(Math::GMPz->new(311) ** 100);"
385227681

alternatively:

C:\>perl -MMath::GMPz -le "$x = (Math::GMPz->new(311) ** 100) & 4294967295; print $x;"
385227681