use strict;
use warnings;

my $pi = atan2 0, -1;

my $angle1 = 90 * $pi / 180;
my $angle2 = 30 * $pi / 180;
my $side = 6;

my $angle3 = $pi - $angle1 - $angle2;

my $height = $side * sin($angle1) * sin($angle2) / sin($angle3);

print "height = $height\n";

my $area = 1/2 * $side * $height;

print "area = $area\n";