my $ip = new Net::IP($a,4);