#!/usr/local/bin/perl
($p,$t,$s)=('/usr/sbin/sendmail','mail@example.com','メールフォームから');use
CGI':all';$$_=param $_ for qw/f m/;($f)=$f=~/^([\w.-]{1,64}\@[\w.-]{1,128})$/i;
($m=substr$m,0,2**16)=~tr/\0/ /;$m=~s/\r\n?/\n/g;$m=~s/^\.$/../gm;charset '';put
header,startform,'あなたのメールアドレス',textfield(-name,'f'),br,'メッセージ',
br,textarea(-name,'m',-rows,10,-cols,60),br,submit,endform;if($f&&$m&&open M,
"| $p -t"){print(M join"\n",'Content-Transfer-Encoding: 8bit',"Reply-To: <$f>",
"To: <$t>","Subject: $s",'',$m,'')&&put '管理者へ送信しました。';close M}