Perl QA/Whois