Turn on warnings and use strict. It will make your life a lot easier trying to figure out what's wrong with your perl code.

If you look in your web server's error log, you'll probably see something about your script not putting out required headers. Your here documents get output verbatim. That includes leading white space. \tContent-type: text/html is not the same is Content-type: text/html. Put that text flush to the left margin.

Also, most if the work of parsing request information has been done for you. use CGI to take advantage of it instead of trying to roll your own. It's very difficult to get it all right.

Update: fixed backslash in second paragraph.

---
print map { my ($m)=1<<hex($_)&11?' ':'';
$m.=substr('AHJPacehklnorstu',hex($_),1) }
split //,'2fde0abe76c36c914586c';
[download]