#!/usr/local/bin/perl

require 'mimew.pl';

$sendmail = '/usr/sbin/sendmail';
$nkf      = '/usr/local/bin/nkf';

$from = '山田太郎 <taroh@foo.org>';         # 宛先の書き方1
$to = 'tanaka@tanaka.hoge.org (田中次郎)';  # 宛先の書き方2
$cc = '河田花子 <hanako@fuga.org>';

$subject = 'サブジェクト';

$body = <<END;
本文です。てすとてすと。
ほげほげ。ふがふが。むにゃむにゃ。
END

open(SENDMAIL,"| $nkf -j | $sendmail -t -i");

# &mimeencode で MIME エンコード
$encoded_from    = &mimeencode($from);
$encoded_to      = &mimeencode($to);
$encoded_cc      = &mimeencode($cc);
$encoded_subject = &mimeencode($subject);

print SENDMAIL "From: $encoded_from\n";
print SENDMAIL "To: $encoded_to\n";
print SENDMAIL "Cc: $encoded_cc\n";
print SENDMAIL "Subject: $encoded_subject\n";
print SENDMAIL "\n";
print SENDMAIL "$body";

close(SENDMAIL);