use Net::CIDR::Lite;

my $b = Net::CIDR::Lite->new( '218.0.0.0 - 221.255.255.255' );
print "Match!\n" if $b->find('216.23.234.32');