if ($curline =~ /^Subject: (.*)$/){
    $curmsg{Subject} = $1;