Select Code to Download

my $PI = 2 * atan2(1, 0);

my $PI = 2 * atan2(1, 0);
my $A = 1.18;
...
    my ($rad, $high) = @_;
    $PI * $rad ** 2 * ($high ? 2 : $A * (1 - exp(-$C * $rad)));
}