#sendmail open(MAIL, "| /usr/lib/sendmail -t"); print MAIL "To: $to\n"; print MAIL "Subject: $mailSubject\n"; print MAIL "Content-Type: text/plain;\n\n"; print MAIL "名前: $mailName\n"; print MAIL "e-mail: $address\n"; print MAIL "$mailBody\n"; close(MAIL); # process for HTML $body =~ s/[\r\n,\n]/<br \/>/g;