my $cidr = 24;
my $ips  = 1 << (32 - $cidr);

# alternately if your block is a /24 or larger (more IPS)
# then you could do
my $networks = (1 << (32 - $cidr)) / 256;

# /24 == 1
# /23 == 2 etc..