use Math::BigInt;

my $E = new Math::BigInt "0xE01AFC76F0814D";
my $D = new Math::BigInt "0x956752E5F9DC53";
my $m = new Math::BigInt 2;

$m->bmodpow($D, $E) while 1;