<Directory /home/*/public_html>
    AllowOverride FileInfo AuthConfig Limit
    Options MultiViews Indexes SymLinksIfOwnerMatch IncludesNoExec
    <Limit GET POST OPTIONS PROPFIND>
        Order allow,deny
        Allow from all
    </Limit>
    <LimitExcept GET POST OPTIONS PROPFIND>
        Order deny,allow
        Deny from all
    </LimitExcept>
</Directory>

ScriptAlias /cgi-bin/ "/home/syndi/public_html/cgi-bin/"

<Directory "/home/*/public_html/cgi-bin/">
    Options +ExecCGI
#    SetHandler cgi-script
	<Limit PUT DELETE GET POST OPTIONS PROPFIND>
	    Order allow,deny
	    Allow from all
	</Limit>
	<Limit PATCH PROPPATCH MKCOL COPY MOVE LOCK UNLOCK>
	    Order deny,allow
	    Deny from all
	</Limit>
</Directory>

#!/usr/bin/perl
#
use CGI::Carp 'fatalsToBrowser';
(...)
# Benutzername zum Einträge löschen und Kommentare verfassen
$user_name	= "root";

# Userpasswort zum Einträge löschen und Kommentare verfassen
$user_pwd	= "root";

# Hier kann man den Namen des Gästebuchscripts eintragen.
# Einige Provider laasen nur Scripte mit bestimmten Endungen zu,
# welche man hier ändern kann.
$scriptname = "guestbook.cgi";

# Trage hier den Namen der Log Datei ein, in der alle Beiträge
# gespeichert werden sollen. Diese Datei wird automatisch erstellt.
# Sollte sie nicht erstellt werden, dann prüfe bitte ob das
# Verzeichnis, in welchen sich das Script befindet auch die Rechte
# zum ausführen hat (chmod)
$data_log	= "guestlog.log";

# Sendmail-Programm zu erfragen beim Provider (nur unter Unix)
$mailprog	= '/usr/sbin/sendmail';

# Deine eMail Adresse # Den \ vor dem @ nicht vergessen
$send		= "root\@localhost";

# URL zum Image Verzeichniss
$url_image  = "../icons/image/";

# URL zum Gästebuch
$url_guestbook = "../cgi-bin/guestbook.cgi";
(...)
# URL für Link zurück
$link_hp	= "http://www.cheyennex.de/gb/gb2x.shtml";
(...)
read(STDIN, $input, $ENV{'CONTENT_LENGTH'});

	@pairs = split(/&/, $input);
	foreach $pair (@pairs) {
	($name, $value) = split(/=/, $pair);
	
	$name =~ tr/+/ /;
	$name =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
	$value =~ tr/+/ /;
	$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;

	$FORM{$name} = $value;
	}

print "Content-type: text/html\n\n";

&date;

(...)

sub anzeigen {
	open(FILE, "$data_log");
	$i = 0;
	while(<FILE>) {$i++;}
	close(FILE);

	if ($FORM{'anzahl'} eq "alle") {$anzahl = $i - 1;}
	
	$k	= $i - 1;
	$k2 = $k % $anzahl;
	$k3 = $k / $anzahl;
	$anzeigen =  $anzahl * $string_wert1 + 1;

	open(FILE, "$data_log");
	@FILE = <FILE>;
	close(FILE);
	&top;
(...)

print "Content-type: text/html\n\n";

my $cgi = CGI->new();
print $cgi->header(-type => 'text/html');

print "Content-type: text/html\n\n";

my $cgi = CGI->new();
print $cgi->header(-type => 'text/html');

Content-type: text/html

<H1>Software error:</H1>
<CODE>Can't locate object method &quot;new&quot; via package &quot;CGI&quot; at guestbook.cgi line 4.
</CODE>
<P>
For help, please send mail to this site's webmaster, giving this error message
and the time and date of the error.

[Mon Jan 10 13:18:49 1994] guestbook.cgi: Can't locate object method "new" via package "CGI" at guestbook.cgi line 4.

use CGI;