perl -e 'use Math::BigFloat; my $x = Math::BigFloat->new(q|-138.9|); print $x->badd(q|46.3|);'