in reply to Server 500

Try adding the line: 
print header(-type=>'text/html');

[download]
before: 
print <<print_tag;

[download]

In Section Seekers of Perl Wisdom