my $dominfo = `whois $_`;  #whois('perl.com');

		my @split = split /\n/, $dominfo;