C:\> perl -MMath::decNumber="d_" -le "print d_(0.3) - d_(0.2) - d_(0.1);"
0.0

C:\>perl -MMath::decNumber="d_" -le "print sqrt(d_(3));"
1.732050807568877293527446341505872