use Email::Valid;

print "'$email' is ", Email::Valid->address($email) ? "valid" : "invalid";