my ($prefix) = join('.',@{[split(/\./,$ipaddr)]}[0,1]);