a simple domain checker written in perl