Yes, something like that should work. Take the Math::Libm module, and use the expm1 and log1p functions for this. I won't figure out the correct formula now.

Update 2012-06-10: though this won't help OP, future people who stumble this question by searching might want to look at the Math::BigApprox module.