RosettaCodeData/Task/Multiplicative-order/Perl/multiplicative-order-1.pl

use ntheory qw/znorder/;
say znorder(54, 100001);
use bigint; say znorder(11, 1 + 10**100);