Select Code to Download

10/8
1.2/16
...
192.168.4/24
192.168.4.192/26
127.0.0.1/32

my $acl = {};
$acl->{source}  = [];            # array of Network address e.g, [10/8
+,172.16/16]
...
#   return 1 if $a is a supernet of $b
#   return 0 for all other cases, mimicking the behaviour of <=>
sub compare($$){some code};