I do not know what add_cidr returns. Are you sure it returns an object? If not, you should change your code to

$sites{site1}{ipinfo} = $cidr = Net::CIDR::Lite->new;
$cidr->add_cidr('192.168.1.0/24');
[download]