#!/usr/local/bin/perl #■SENDMAILの設定 $sendmail = '/usr/lib/sendmail'; #■NKFの設定 $nkf = './nkf'; #■受け取るメールアドレス $mailto = 'あなたのＥメールを半角で記述'; open(OUT,"|$nkf -j | $sendmail -t"); print OUT "Content-Transfer-Encoding: 7bit\n"; print OUT 'Content-Type: text/plain; charset=iso-2022-jp' . "\n"; print OUT "To: $mailto\n"; print OUT "From: $mailto\n"; print OUT "Subject: メールテスト\n"; print OUT "\n"; print OUT "内容文\n"; close(OUT); print "Content-type: text/html\n\n"; print "OK\n"; exit;