my @from = Email::Address->parse($from);
my $name = $from[0]->name;
defined $name or $name = '';
my $email = $from[0]->address;
defined $email or $email = '';
my @from = Email::Address->parse($from);
my $name = $from[0]->name;
defined $name or $name = '';
my $email = $from[0]->address;
defined $email or $email = '';