Without changing anything major, 40:

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

Note that neither this nor your solution is of arbitrary precision. Both are limited to double precision.

Update: 38:

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