!/usr/local/bin/perl -ws
$debug ||= 0;

sub MAIN::usage {

    print <<"EOF";

    $0 mask 

    AND mask with IP addresses

    read IP addresses on stdin
    dotted quads or raw byte strings

    e.g: 192.168.1.2 or ABCD


EOF
    die "\n" ;

}

package dot_quad;


local $\ = "\n";
local $" = ".";
*debug=*main::debug;

# accept either an ascii representaion eg:
# 192.168.1.2
# or
# a raw byte string
# ~~~~~~~~~~~~~~~~~
sub new {

    $class = $class = shift;
    local $_ = shift;
    $debug and print "Constructing '$_'" ;

    if (/^(\d{1,3}[.]){3}\d{1,3}$/) {

 # got a ip address like 192.168.1.2
 @bytes = map chr($_), split( '\.', $_ );
 $ip = $_;

    } elsif (/^....$/) {

 # got a 4 byte packed string
 @bytes = split( '', $_ ); 
 $ip = join '.', map ord, @bytes;

    } else {
 warn "ERROR >>> get lost with your:'$_'\n";
 return 0;
    }

    $debug and  print "[$_]bytes=@bytes" ;
    $debug and  print "$_ ip=$ip";

    $raw = join '', @bytes;

    $binary = [unpack ("B8B8B8B8",  $raw)];

    # print "$ip = [@bytes] =  $raw = $binary @binary\n";
    

    $obj = {    ipv4 => $ip ,
  packed => $raw, 
  binary => $binary, 
     };

    return bless $obj;
    return $obj;

}

sub AND {
    $a = shift;
    $b = shift;

    $res = $a->{packed} & $b->{packed};
    return dot_quad->new($res);

}
sub dump {

    $this = shift;
    printf "%20s\t", $this->{ipv4}; 
    print "@{$this->{binary}}";
}
package MAIN;

$mask = shift or usage();
$mask = dot_quad->new($mask);
print "mask";
$mask->dump();

while (<>) {
    chomp;
    $x = dot_quad->new($_) or next;
    print "AND";
    $x->dump();
    $mask->dump();
    print "=";
    $y = $x->AND($mask);
    $y->dump();
    print "\n";


}