フォームメールcgi　の加工（スパム排除）について教えて下さい。

（１）GETによるパラメータ送信は拒絶し POSTのみ受け取るようにするだけでも、かなり減ると思われます。

フォームHTMLのほうでGETを利用しているのであれば、そちらもPOSTに変更する必要があります。

    if ($ENV{'REQUEST_METHOD'} eq 'GET') {
        # Split the name-value pairs
        @pairs = split(/&/, $ENV{'QUERY_STRING'});
    }
    elsif ($ENV{'REQUEST_METHOD'} eq 'POST') {
        # Get the input
        read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
 
        # Split the name-value pairs
        @pairs = split(/&/, $buffer);
    }
    else {
        &error('request_method');
    }

　　　↓↓↓↓↓

    if ($ENV{'REQUEST_METHOD'} eq 'POST') {
        # Get the input
        read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
 
        # Split the name-value pairs
        @pairs = split(/&/, $buffer);
    }
    else {
        &error('request_method');
    }

（２）件名が空白だったり半角英文だけで構成されているような場合は拒絶するようにすれば、さらに減ると思われます。

        if (defined($Config{$name})) {
            $Config{$name} = $value;
        }

　　　↓↓↓↓↓

        if (defined($Config{$name})) {
            if (($name eq 'subject') && ($varue =~ /[^\x80-\xff]/) {
                &error('request_method');
            }
            $Config{$name} = $value;
        }

（３）本文にURLを含んでいれば拒否して良いというのであればさらに減るとは思いますが、

上記２点があれば、もしかしたら不要かもしれません。

        else {
            if ($Form{$name} ne '') {
                $Form{$name} = "$Form{$name}, $value";
            }
            else {
                push(@Field_Order,$name);
                $Form{$name} = $value;
            }
        }

　　　↓↓↓↓↓

        else {
            if ($varue =~ /http:\/\//) {
                &error('request_method');
            }
            if ($Form{$name} ne '') {
                $Form{$name} = "$Form{$name}, $value";
            }
            else {
                push(@Field_Order,$name);
                $Form{$name} = $value;
            }
        }

※以上、動作確認はしておりません。

※（２）は文字コードEUC-JPの場合です。他の場合は変更が必要です。

※エラー表示のほうは追加してませんので、どこで引っかかっても同じエラー処理が動きます。

※プロバイダの迷惑メールフィルタもあわせて使う事をお勧め。