my $polygon = Polygon->new( [5,5], [5,20], [20,20], [20,5], [5,5] ); # edit . durch , ersetzt

if ( $polygon->contains(10,10) ) {
    # 10,10 liegt im Polygon 5,5; 5,20; 20,20; 20,5; 5,5
} # if