use Mail::RFC822::Address qw(valid validlist);
[...]
$email = $FORM{'email'};
[...]
  if (valid($email)) {
      print "That's a valid address\n";
  }
  if(valid($mail_destination)){
    print "Destination address is valid!";
  }