$s+=1/$_**2for 1..1000000;print sqrt$s*6