As well as Email::Valid take a look at Mail::CheckUser. In addition to checking the syntax of the address and checking for an MX record it does a bunch of network checks that can cull a lot of bogus addresses.