C:\Code>perl masktest.pl
ip addr = 01001000000111110100111100000101
netmask = 11111111111111111111111100000000
badmask = ¨p¨p¨p¨p¨p¨p¨p¨p¨p¨p¨p¨p¨p¨p¨p¨p¨p¨p¨p¨p¨p¨p¨p¨p¨k¨k¨k¨k¨k¨k¨k¨k
notmask = 00000000000000000000000011111111
01001000000111110100111100000000
01001000000111110100111111111111