use Math::BigFloat;
print Math::BigFloat->bpi(-s "./ch-1.pl");