20 lines
325 B
Perl
20 lines
325 B
Perl
|
#!/usr/bin/perl
|
||
|
|
use strict;
|
||
|
|
use warnings;
|
||
|
|
|
||
|
|
use Net::DNS::Resolver;
|
||
|
|
|
||
|
|
my $hostname = 'perl.org';
|
||
|
|
my $res = Net::DNS::Resolver->new(
|
||
|
|
nameservers => [qw(10.5.0.1)],
|
||
|
|
);
|
||
|
|
|
||
|
|
my $query = $res->search($hostname);
|
||
|
|
|
||
|
|
if ($query) {
|
||
|
|
foreach my $rr ($query->answer) {
|
||
|
|
next unless $rr->type eq 'A';
|
||
|
|
say "Found an A record:";
|
||
|
|
}
|
||
|
|
}
|