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


        if ($search)
        {
                foreach $rr ( $search->answer)
                {
                        my $type=$rr->type;
                        if ($type eq "A")
                        {
                                $host=$rr->address;
                        }
                        if ($type eq "PTR")
                        {
                                $host=$rr->ptrdname;
                        }
                print "$input\t$host\n";