print OUT 'if ($ENV{REQUEST_METHOD} ne "POST"\n || read(STDIN, $post, $ENV{CONTENT_LENGTH})\n';

で、何のためにうんこコードを保存してるの?