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