協力してあげたいけど、WINなんで駄目だ　　ｗ
上の方の人も言ってるけど、俺もpostを進めるよ
何がウザイってhttpdのログが膨れるんすよ、エスケープされてるから
あ(2バイト)が%82%A0(6バイト)になる、これかなり凶悪
次から鯖缶にマークされると言う（以下略）
つー事でメソッド変えて
$inputの所こんな感じにすれば、簡単に両対応になるから一応書いとく

if ($ENV{'REQUEST_METHOD'} eq 'GET'){
    $input = $ENV{'QUERY_STRING'};
}elsif ($ENV{'REQUEST_METHOD'} eq 'POST'){
    ###まず標準入力から読み込み
    read(STDIN, $input, $ENV{'CONTENT_LENGTH'});
    ###お尻にQUERYを足す
    $input .= "\&$ENV{'QUERY_STRING'}";

俺はGETは大嫌いだけど　　ｗ
しかし不思議だね、がんばってくれ