#!/bin/perl
use strict;
use warnings;
use lib qw(../modules);
use CGI::Carp qw/fatalsToBrowser warningsToBrowser set_message/;
use CGI;
use HTML::Template;
use MyCMS;

my $maintemplate = '../tmpl/main.html';

sub handle_error {
    my $msg = shift;
    my $tmpl = HTML::Template->new(filename => $maintemplate);
    $tmpl->param(TITLE => 'Serverfehler');
    $tmpl->param(INHALT => "<h2>Serverfehler</h2>
               
             <p>Bitte Kontaktieren sie webmaster\@creedforever.com mit folgender Fehlermeldung:</p>
                            <tt>$msg</tt>");
    print $tmpl->output();
}
set_message(\&handle_error);

...