my $mask = "1" x $cidr . "0" x ( 32 - $cidr );