use Math::BigFloat; use Math::NumberCruncher; $| = 1; $N = shift || 100; $e = Math::BigFloat->new("1"); for ( $i = 1; $i <= $N; $i++ ) { $fac = Math::NumberCruncher::Factorial( $i ); $e += 1 / $fac; } print $e, "\n";