Select Code to Download

sub make_netmask {
    my $mask = shift;
...
    vec( $str, 127-$_, 1) = 0b1 foreach 0..$mask-1;
    return map{ vec $str, $_, 8 } reverse 0 .. 15;
}