RosettaCodeData/Task/Factorial/Perl/factorial-5.pl

use bigint;
say length(  10000->bfac  );