Your code leaves a little to be desired...

• The formatting is... well... almost non-existent.
• You aren't using -w or use strict;.
• You aren't taint checking.
• You use the CGI module seemingly for one thing: printing out the header. (Why use CGI if you are going to parse the query string by hand?)
• Your program starts with over 50 separate print statements. (Time to learn about here docs.)
• Most of those 50 prints are writing out javascript...
• Your error messages (e.g. open ... ||die("You suck");) aren't very informative.
• Half the time you don't check the return from open at all.
• WARNING! You have introduced a security hole and opened yourself to remote exploits by using tainted user supplied data inside backticks! This is no joke. If that code is up, anyone with access to it via the web can run arbitrary code on your server with the same privileges as the web server itself.

My advice: don't walk... run and take that "code" off your server, delete it, read perldoc perlsec very very carefully, read perldoc CGI carefully, get yourself a copy of perltidy and learn how to use it, get a book on Perl and maybe one on CGI, educate yourself a bit, and then start with a less ambitious project.

I know that's a little rough. I don't mean to be insulting; I just mean to tell it like it is. If you don't listen to the rest of my advice, at least listen to the part about taking that code off your server.

-sauoq
"My two cents aren't worth a dime.";

---

---

Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!

Titles consisting of a single word are discouraged, and in most cases are disallowed outright.

Read Where should I post X? if you're not absolutely sure you're posting in the right place.

Please read these before you post! —

• How do I compose an effective node title?
• How do I post a question effectively?
• Markup in the Monastery

Posts may use any of the Perl Monks Approved HTML tags:

a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr

You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)

	For:		Use:
	&		&
	<		&lt;
	>		&gt;
	[		&#91;
	]		&#93;

Link using PerlMonks shortcuts! What shortcuts can I use for linking?

See Writeup Formatting Tips and other pages linked from there for more info.