perldoc -f atan2
     atan2 Y,X
             Returns the arctangent of Y/X in the range -PI to
             PI.
 
             For the tangent operation, you may use the
             "Math::Trig::tan" function, or use the familiar
             relation:
 
                 sub tan { sin($_[0]) / cos($_[0])  }