$ perl -wle'print for atan2(1,0), atan2(0,1)'