$ perl -we 'print atan2(1, 0), $/, atan2(0, 1), $/;'
1.5707963267949
0
$ perl -we 'use bignum; print atan2(1, 0), $/, atan2(0, 1), $/;'
0
1.5707963267949