use warnings;
use strict;

use Email::Valid;

my $from_email = 'stevieb <steveb@cpan.org>';

if (! Email::Valid->address($from_email)){
    die "that ain't a valid email address!\n";
}

...;