Testing DNS performance – perl script
Use the perl script below to check your DNS performance. Make sure to replace the search string and your DNS provider IP address. #!/usr/bin/perl @ns = @ARGV; push(@ns,’8.8.8.8′, ‘4.2.2.1’) unless @ns; $domain = “www.devtech101.com”; use Net::DNS; use Time::HiRes; # high resolution timing required use Time::Stopwatch; use Number::Format qw(:subs); use Statistics::Descriptive; tie my $time, ‘Time::Stopwatch’; # …