What is the error that you get? Have you tried running the script from the command line?

Adding -w and use strict; to the script only throws up one small error, which is simple enough to fix (my $where;). Other than that, your Perl seems inelegant, but functional.

Maybe it is a problem with the way your web server is set up. Telling us the exact error would help us to help you.

--
<http://www.dave.org.uk>

"Perl makes the fun jobs fun
and the boring jobs bearable" - me