if ($ENV{'REQUEST_METHOD'} eq 'POST'){   print "success\n"      }

##</code><code>##

 elsif ($ENV{'REQUEST_METHOD'} eq 'POST') {
        if ($ENV{'CONTENT_TYPE'}=~ m#^application/x-www-form-urlencode
+d$#i) {
            $ENV{'CONTENT_LENGTH'}
                || &HTMLdie("No Content-Length sent with the POST requ
+est.") ;
            read(STDIN, $in, $ENV{'CONTENT_LENGTH'}) ;

        } else {