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.
--
"Perl makes the fun jobs fun
and the boring jobs bearable" - me
In reply to Re: Stuck
by davorg
in thread Stuck
by Anonymous Monk
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |