#!perl -slw use strict; use overload; use bignum; use Math::BigFloat; printf "exp(-7e-17): %.17f\n", my $exp = exp( Math::BigFloat->new( '-7e-17' ) ); eval{ print overload::Overloaded( $exp ) } or warn $@; print overload::StrVal( $exp ); printf "1-exp(-7-e17): %.17f\n", Math::BigFloat->new("1") - $exp; __END__ C:\test>junk7 exp(-7e-17): 0.99999999999999989 Can't call method "can" without a package or object reference at c:/Perl/lib/overload.pm line 54. 1 1-exp(-7-e17): 1.00000000000000000