#!/usr/bin/perl

use strict;
use warnings;
use CGI;
use CGI qw/:standard/;
use CGI::Carp qw(fatalsToBrowser);

use DBI;

use lib "lib/";
use CGI::Session qw/-ip-match/;
use functions;

#cgi-Objekt erzeugen
my $cgi = CGI->new();
print $cgi->header();

huhu();#Funktion aus functions.pm