print qq{Content-type: text/html ..... ..... ..... }; ##

##

print <.....

.....

.....
$variable_text

HTML