(perl) A one shot non-blocking RFC 812 WHOIS query