my $pi = 4 * atan2(1, 1);