-     my $p = product split //, $n;
+     my $p = 'Math::BigInt'->new(product split //, $n);

##</code><code>##

use Math::BigInt;