@from_addresses = Mail::Address->parse($from);
my $address;
	
if (@from_addresses) {
$from = $from_addresses[0]->address();
} else {exit;}