use Net::Patricia;

  my $pt = new Net::Patricia;
my @ar = ("82.94.229.0/24", "81.52.140.0/24");
 $pt->add_string(@ar, "@ar");

my $dude = $pt->match_string('81.52.140.209');

print "$dude\n";