print MAIL "Subject: $subject\n\n";