#!/usr/bin/perl

use strict;
use Email::Valid;
use Mail::RFC822::Address;

my $address = 'ryan.311@osu.edu';
print 'Email::Valid: ',
   ( Email::Valid->address( $address ) ? 'yes' : 'no' ), "\n";
print 'Mail::RFC822::Address: ',
   ( Mail::RFC822::Address::valid( $address ) ? 'yes' : 'no' ), "\n";

##</code><code>##

Email::Valid: yes
Mail::RFC822::Address: yes