#!/usr/bin/perl -T
use strict;
use warnings;
use CGI qw(header);
use CGI::Carp qw(fatalsToBrowser warningsToBrowser);
print header();
warningsToBrowser(1);

# index.cgi
# Das Zugriffsrecht lautet 701. 
# Die Datei kann somit vom Besitzer gelesen 
# und beschrieben sowie von jedermann ausgefuehrt werden.

use lib(".");

use Modul;
Modul -> new("datei");