perl -Mbignum=bpi -e 'print bpi(1000)'