my $ip = new Net::IP($ARGV[0],4);