#!/usr/bin/perl
use strict;

open TXT, "../monatshit.txt" or die "$!";
my @txt = <TXT>;
close TXT;

if ($txt[0] !~ /^\n/) {
	print "Content-type: text/html\n\n";
	print "<div class=\"monatshit\">";
	print @txt;
	print "</div>";
}