Select Code to Download

perl -MDevel::Peek -e 'my $n = 6**25; Dump($n)'
SV = NV(0x563681e7c888) at 0x563681e7c8a0
  REFCNT = 1
  FLAGS = (NOK,pNOK)
  NV = 2.84302880299297e+19

perl -MO=Deparse -MMath::BigInt -e 'my $bi = Math::BigInt->new(6**25);
+'
my $bi = 'Math::BigInt'->new(2.84302880299297e+19);

perl -MMath::BigInt -e 'my $bi = Math::BigInt->new(6)->bpow(25); print
+ $bi, "\n";'
28430288029929701376