$ perl -MNet::CIDR -e '
  print Net::CIDR::cidrlookup(
    "192.168.1.130",
    Net::CIDR::range2cidr("192.168.1.120-192.168.1.141")
  )'
1
$ perl -MNet::CIDR -e '
  print Net::CIDR::cidrlookup(
    "192.168.1.180",
    Net::CIDR::range2cidr("192.168.1.120-192.168.1.141")
  )'
0