Help for this page

Select Code to Download


  1. or download this
    C:\Documents and Settings\mda>perl dns.pl
11 wallclock secs ( 0.00 usr +  0.03 sys =  0.03 CPU)1: 200.228.126.26
+ (record type A)
  2. or download this
    use Benchmark;
my $td = new Benchmark;
my @domainIp = resolveDomainIp ('hostname');
print timestr(timediff(new Benchmark, $td));
  3. or download this
    #.. cut ..
my $res   = Net::DNS::Resolver->new;
...
   $res->nameservers('my.desired.ip.addr');
   print "POS: ", $res->nameservers, "\n";
#.. cut ..