$from = $head->get('From');    
($from_name, $from_adress) = split( / <[/, $from );
$from_adress =~  s/]>//g;
$from_name =~  s/"//g;