@from = grep(/^From:/o, @header);
$curFrom = $from[0];
@subject = grep(/^Subject:/o, @header);
$curSubject = $subject[0];