Help for this page
print qq{Content-type: text/html ... ..... </html> };
print <<HTML Content-type: text/html ... $variable_text </html> HTML