Check if coordinate in poly-file perl

pl

#!/bin/env perl

use Math::Polygon::Tree;

# nrw.poly - shapefile of nrw from http://download.geofabrik.de/europe/germany/nordrhein-westfalen.poly

my $bound = Math::Polygon::Tree->new( 'nrw.poly' );

if ( $bound->contains( [6.744400, 50.797427] ) ) {

    say "In nrw";

}

unless ( $bound->contains( [ 8.378689, 50.434742] ) ) {

    say "not in nrw"; 
}