#!perl -w
use strict;
use CGI;

do_all_the_initialisations;

while (1) {
    my $information = get_information;
    print <<HTML;
This is my HTML page with $information
};