#!/usr/local/bin/perl

require 'jcode.pl';

$sendmail = '/usr/sbin/sendmail';

$body = <<END;
こんにちは。
これはテストです。
END

&jcode::convert(\$body,'jis');

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

print SENDMAIL <<'END';
From: from@foo.bar.com
To: to@hoge.fuga.com
Cc: aa@bb.cc,dd@ee.ff
Subject: test

END

print SENDMAIL $body

close(SENDMAIL);