in reply to Linux server doesn't like me

First, use the tag <readmore> for big nodes. Is better if you make a introducion text for your node, and put the readmore after it.

Your error, that exist in most print that you make, is the qq(...), that uses () for quotes, but you use the () inside the text to be printed too. Use something like that for big print: 

print qq`
<html>
...
</html>
` ;

## or

print <<HTMLDATA;
<html>
...
</html>
HTMLDATA

exit ;

[download]

End you forgot some } to close some sub too! Before send the script to server make a check syntax: 

  perl -c script.pl

[download]

If you use Windows, get Perl from ActiveState.com

Graciliano M. P.
"The creativity is the expression of the liberty".

In Section Seekers of Perl Wisdom