use Math::Trig;
my $pi= 4*atan2(1,1);
my $deg_to_radian= $pi/180;
print sin(30*$deg_to_radian),"\n";