#!/usr/bin/env perl
use strict;
use warnings;
use Math::BigFloat;

Math::BigFloat->accuracy(100);  # default to 100 digits after the decimal dot

my $e = Math::BigFloat->bone();
my $fakulty = $e->copy();
my $tmp;

for my $n (1 .. 10) {
    $fakulty->bmul($n);
    $tmp = $fakulty->copy()->bpow(-1);
    $e->badd($tmp);
    print "$e\n";
}

for my $n (1 .. 10) {
    $fakulty->bmul($n);
    $e->badd($fakulty->copy()->bpow(-1));
    print "$e\n";
}

#!/usr/bin/perl
use strict;
use warnings;
use bigint;

for (1e9..1e9){
    print $_ * $_, $/;
}
my $x = 1e9;
print $x * $x, $/;
__END__
1e+18
1000000000000000000

use Math::BigFloat;
my $bigFloatNum = Math::BigFloat->new(5); # erstellt eine bigfloat mit "startwert 5"
$bigFloatNum->badd(10); # jetzt ist $bigFloatNum eine BigFloat mit dem Wert 15
print "bigFloatNum = $bigFloatNum\n";

2.718281801146384479717813051146384479717813051146384479717813051146384479717813051146384479717813053