Not sure if I understand the node topic with what you show in the node. If you want to remember variable and values you can use Data::Dumper (or a DB, if you really want).

But, a few comments on the code :) First, use CGI.pm for reading in the QUERY_STRING. Second, turn on taint checking, third use strict (which will make you put your variables into scope, which I would also mention).

$r4enc = "$r3enc";
[download]

Useless use of quotes in all the lines like the above.

I don't see where $ndcat originates.

You are printing out to an HTML file from a CGI script, and doing no file locking at all. Too many hits at a time and your file will get hosed.

I could go on a little more, but that is enough for now :)

Cheers,
KM