#!/usr/bin/perl use CGI; chdir "C:/Users/Martin/Desktop/Server/htdocs/perlbook"; $cgi = new CGI; use CGI::Carp qw(fatalsToBrowser); require "do.pl"; # Ausgabe des HTTP Headers print "Content-type: text/html\n\n"; print qq( Gästebuch auf Textseitenbasis mit PERL ); # Waehle Content if ($cgi->url_param('do') eq "") { print qq(

Gästebuch - Einträge lesen

); } else { if ($cgi->url_param('do') eq "add") { require "add.pl" or die("fuck"); } }