my $res = Net::DNS::Resolver->new;  
 
foreach $urls (@hrefs) {  
 
my $query = $res->query($urls, "A");