#!/usr/bin/perl -w

#Skriptname:  index.pl
#Funktion:    Hauptseite von Browsergame Pingu Farmer
#Autor:       Alexander Kratzer und Jörg Häfner
#Datum:       20.12.2010

#für debugging
#open FH, "> debug.txt" or die "debug.txt: $!"; print FH ""; close FH;

use Time::HiRes qw(gettimeofday tv_interval);
my $start_time;
BEGIN { $start_time = [gettimeofday()]; }  # Zeit zu Beginn des Ladens

BEGIN{
  push (@INC,"$ENV{DOCUMENT_ROOT}testumgebung/pingu/module/");
}

use strict;
use CGI;
use Switch;
use Session;

#eigene Module

use Globals;
use HTMLT;
use Subs;
use WebDB;
 
my $C = new CGI;

# hier kommt dein Code


#### ================
my $laufzeit;
END { 
  $laufzeit = tv_interval ( $start_time, [gettimeofday]);
  print "Ladezeit: $laufzeit";
 }