use Socket;

sub IsInRange {
	my ($addr,$base) = @_;
	my $bits;
	($base, $bits) = split /\//, $base;
	return ( (unpack("N", inet_aton($base)) >> (32 - $bits)) == 
		(unpack ("N", inet_aton($addr)) >> (32 - $bits)) );
}