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