in reply to the 500 error

in addition, you've forgotten to set the content-type. 

print <<HTML;
Content-type: text/html

<html>
...

[download]
 I must be going blind. please ignore.
"What should it profit a man, if he should win a flame war, yet lose his cool?"

In Section Seekers of Perl Wisdom