use Net::Netmask;

$block=new Net::Netmask("10.0.2.0/24");
if ($block->match("192.168.1.2")) { ... }