#!/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(