#!/usr/bin/perl

use strict;
use warnings;

use utf8;

sub header {
	return '<h1>KOPF</h1>';
}
sub mitte {
	return '<div>Blah Blöh!</div>';
}
sub footer {
	return '<p>Copyleft (c)1977 by Ox Narrd</p>';
}

my $HTML = header();
$HTML .= mitte();
$HTML .= footer();

print "Content-Type: text/html; charset=utf-8\n\n";
print "<h2>TESTAUSGABE</h2>";
print "<p>time() is: ".time."</p>";
print $HTML;