#!/usr/bin/perl -wT use strict; my (@out, $i, $n, $line); push(@out, "Content-type: text/html\n"); push(@out, "\n"); push(@out, "\n"); push(@out, " \n"); push(@out, " \n"); push(@out, " \n"); push(@out, " \n"); push(@out, "Bar\n"); push(@out, " \n"); push(@out, "\n"); print join("", @out);