my $res=Net::DNS::Resolver->new;
$res->nameservers($server);
my $search = $res->search($input);