print qq/ Content-type: text/html /; foreach (<@inputlines>) { print ""; } print qq/
$_\n
/;