$ perl -E 'say(4*atan2(1,1) / 2)'
1.5707963267949