Select Code to Download

sub GreenTheoremTest {
   my ($poly) = @_;
...
   }
   return $asum;
}

my $EPSILON = 1e-20;
my $asum = GreenTheoremTest($poly);
...
} else {
   print "Polygon is counterclockwise\n";
}