use Math::BigFloat;
$N = shift || 100;
$e = Math::BigFloat->new(1);
$fac = Math::BigFloat->new(1);
for $i (1 .. $N)
{
        $fac *= $i;
        $e += 1 / $fac;
}
print $e, $/;