Please use warnings and strict, the best way to polish your perl skills ;-)

The problem ist that you try to reread your __DATA__ section every time you get a request, but the respective "file pointer" is at EOF after the first time. I don't know if the pointer can be reset (look up the docu if you want to), but it is easier to just move the line where you initialize $bad_request_doc to somewhere before the main loop