print "Content-type: text/html\n\n";

print "<pre>\n";

for (@data) {
    print escapeHTML($_);
}

print '</pre>';

sub escapeHTML { ..... }