print "Content-type: text/html\n\n"; print qq~$com_text_wrong
$com_text_wrong

~; 1;