#!/usr/bin/perl                                                   
use strict;                                                       
use warnings;                                                     
                                                                  
use Net::DNS;                                                     
                                                                  
# Create DNS Resolver object                                      
my $res = Net::DNS::Resolver->new;                                
$res->nameservers();                                              
                                                                  
# Specify the name server                                         
my $nameserver = "12.104.122.2";
                                                            
                                                                
#Perform the query                                                
#my $query = $res->searchlist(@host);                             
my $query = $res->search('www.chase.com');                        
$res->print;                                                      
if ($query)                                                       
{                                                                 
        foreach my $rr ($query->answer)                           
        {                                                         
                next unless $rr->type eq "A";                     
                print "host resolves to " .  $rr->address . "\n"; 
        }                                                         
}                                                                 
else                                                              
{                                                                 
      print "query failed: ", $res->errorstring, "\n";            
}