$from = $head->get('From');
@from_addresses = Mail::Address->parse($from);
my $address;
     if (@from_addresses) {
        $from = $from_addresses[0]->address(); #email-adresse 
        $name = $from_addresses[0]->name(); #Name des Ab senders 
}
else {exit;}