Help for this page
my $mask = "1" x ( 32 - $cidr ) . "0" x $cidr;
my $mask = "1" x $cidr . "0" x ( 32 - $cidr );