perl -E ‘say atan2(-1,0)’