The real mistake is doing stuff like:

open FOO, $file

# and not
open FOO, $file or die_nice( "Can't open $foo, Perl says $!\n");

sub die_nice {
    print "Content-Type: text/html\n\n" . shift;
}
[download]

If you don't check you errors you waste a lot of time....

Glad you got it sorted!

cheers

tachyon

s&&rsenoyhcatreve&&&s&n.+t&"$'$`$\"$\&"&ee&&y&srve&&d&&print