2.10 三角法をラジアンではなく度で計算する

# 方法1
use constant PI => (4 * atan2(1,1));

sub deg2rad {
  my $degrees = shift;
  return ($degrees / 180) * PI;
}

sub rad2deg {
  my $radians = shift;
  return ($radians / PI) * 180;
}

# 方法2
use Math::Trig;

$radians = deg2rad($degrees);
$degrees = rad2deg($radians)