There are a variety of problems here. First problem: you get a 500 error on the second script because you're not printing a header. Try this:

print $query->header;
[download]

If you find the "unitilized value" error annoying in the first script, you can use this:

my $location = $query->param("place") or "";
[download]

For safety's sake, you should always use the -T switch on your command line when writing CGI scripts. See perlsec for details. Also, you can check out my Web programming course for a bit more information about writing CGI scripts. It's not complete, but it is aimed at people new to CGI scripting and Perl.

Good luck!

Cheers,
Ovid

Join the Perlmonks Setiathome Group or just click on the the link and check out our stats.