Select Code to Download

$ perl -e " use bignum; my $q = 123.0; print join q{ }, $_, $q->digit(
+-$_),$/ for 1 .. 5 ; warn ref $q "
1 1
...
5 0
Math::BigInt at -e line 1.

$ perl -e " use bignum; my $q = 123 + 1/3; print join q{ }, $_, $q->di
+git(-$_),$/ for 1 .. 5 ; warn ref $q "
Can't use an undefined value as an ARRAY reference at ...lib/Math/BigI
+nt/Calc.pm line 1209.