print MAIL "Subject: $parts{SUBJECT}\n\n";