my $cidr = 8;
my $mask = "1" x ( 32 - $cidr ) . "0" x $cidr;
print $mask, "\n";
$mask = join ".", ( unpack "C4", ( pack "B*", $mask ) );
print $mask, "\n"