2000/04/24 (月) 00:30:24 ▼ ◇ [mirai]#!/usr/local/bin/perl
print "Content-type: text/html\n\n";
open(OUT,"| $sendmail -t");
print OUT "To: otomodati\@every-mail.com\n";
print OUT "From: 大きいケツマンコ\n";
print OUT "Subject: welcome!Gay sex world!\n";
print OUT "Content-Transfer-Encoding: 7bit\n";
print OUT "Content-Type: text/plain\; charset=\"ISO-2022-JP\"\n\n";
print OUT "いやーん\n\n";
print OUT "いれて\n\n";
close(OUT);
print "<html><META HTTP-EQUIV=REFRESH CONTENT=\"2\;
URL=$ENV{'SCRIPT_NAME'}\"><body></body></html><plaintext>";
exit;