メールの送信

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);
    }
}