メールの送信
sub send { my ($from, $to, $subject, $body) = @_; my $data; $data = "From:$from\n"; $data .= "To:$to\n"; $data .= "Subject:$subject\n"; $data .= "Return-Path: <$from>\n"; $data .= "Content-Transfer-Encoding: 7bit\n"; $data .= "Content-Type: text/plain; charset=\"iso-2022-jp\"\n"; $data .= "\n" . $body . "\n.\n"; if (-x $sendmail) { unless (open(OUT, "| $sendmail -f $from $to")) { close(OUT); return; } unless (print OUT $data) { close(OUT); return; } close(OUT); } }