【CGI】こんなCGI探してますver.19

#!/usr/bin/perl
require './jcode.pl';
　
# フォーム入力されたデータを格納
if ($ENV{'REQUEST_METHOD'} eq "POST") { read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'}); } else { $buffer = $ENV{'QUERY_STRING'}; }
　
# 入力されたデータを文字列に代入・コード変換する
@pairs = split(/&/,$buffer);
foreach $pair (@pairs) {
($name, $value) = split(/=/, $pair);
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
&jcode'convert(*value,'sjis');
#ここ2行でHTMLメールに変換できる。今回はコメントアウト
# $value =~ s/\t/ /g;$value =~ s/</\t/g;
# $value =~ s/\r/\n/g;$value =~ s/\n\n/\n/g;$value =~ s/\n/<br>/g;
$FORM{$name} = $value;
}
#送信前設定
$sendmail = '/usr/sbin/sendmail -t -i';
$count = '1';
$mailto = $FORM{'mailto'};
$subject = $FORM{'subject'};
$email = $FORM{'email'};
　

#送る回数だけループ
for($i=1;$i<=$count;$i++){
#送信開始
open(OUT,"| $sendmail") || exit;
#ヘッダ
#各フィールドを変更したいならば、書き換えること（X-Mailerなど）。
print OUT "X-Mailer: SPAM Maker\n";
print OUT "To: $mailto\n";
print OUT "From: $email\n";
print OUT "Subject: $subject\n";
print OUT "Content-Transfer-Encoding: 7bit\n";
print OUT "Content-Type: text/plain; charset=iso-2022-jp\n";
print OUT "\n\n";
#本文送信
&jcode'sjis2jis(*value);
print OUT "$value\n";
print OUT "\n";
close(OUT);
}
#最後の処理が手抜きなのでちゃんと終了できない
#終了時エラー500画面が出るが実際にはちゃんと送れています
exit;

どこが間違っているんでしょうか
パーミッションは７５５に設定しています
指摘お願いします
これ以外でもメールフォームで送信数が設定できるものを探しています