You could just use Socket's inet_aton and an unpack "N" to turn your IPs into single numbers and compare those. Or just use Net::Netmask off CPAN which does all the grunt work for you.