Select Code to Download

use strict;
use warnings;
use Math::Geometry::Planar;
...
    print "point @{$point} is outside\n" ;
  }
}

Perimeter:4
Area:     1
point 0.725 0.396 is inside
point 2 3 is outside
point 1 1 is outside