use Net::Netmask;

my ($block) = new Net::Netmask ("192.168.1.5", "255.255.255.0");
print $block->base(), "/", $block->bits(), "\n";