my $angle = atan2 $x2-$x1, $y2-$y1;