A simple little domainchecker written in perl