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)

##</code><code>##

use Benchmark;
my $td = new Benchmark;
my @domainIp = resolveDomainIp ('hostname');
print timestr(timediff(new Benchmark, $td));

##</code><code>##

#.. cut ..
my $res   = Net::DNS::Resolver->new;
   print "PRE: ", $res->nameservers, "\n";
   $res->nameservers('my.desired.ip.addr');
   print "POS: ", $res->nameservers, "\n";
#.. cut ..