如何用perl求圆周率pi

pangeno

pi=4-4/3+4/5-4/7+4/9-4/11+……


写一个perl脚本，要求有如下功能：

结果要求显示分母值以及对应的pi值，而且给出此时的pi的小数点后多少位是正确的。
当在程序运行时输入 <ENTER> ，程序停止，将各变量值存入一个文件中(para.txt),
下次运行这个程序时自动读取para.txt里面的变量值并继续运行，而不是从头开始。

例如：
-------------------------------------------
$ perl pi_est.pl

denom: 1
pi = 4
cep: -1

denom: 3
pi = 2.666667
cep: -1

denom: 5
pi = 3.466667
cep: 0

denom: 7
pi = 2.895238
cep: -1

denom: 9
pi = 3.339683
cep: -1

.....

denom: 63
pi = 3.11035
cep: 1

.....

denom: 1000
pi = ......
cep: .....

<ENTER>     #  暂停，变量输出到para.txt

$ perl pi_est.pl   # 下一次运行

denom: 10001
pi = .....
cep: .....

.....
-------------------------------------------

还有，有什么办法可以使pi后面显示的小数位更多？