#!/usr/bin/perl
use strict;

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

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