use/require Mail::RFC822::Address;
  if (&Mail::RFC822::Address::valid(&#36email)) {
    print "ok\n";
  }