FYI there is already a Email::Valid module on CPAN that will even do mx record lookups to verify a valid (valid in the sense that that there is a mx record) domain name in the email address.

PS: I also do not see where you support UUCP style email addresses

grep

Unix - where you can throw the manual on the keyboard and get a command