Perl-Problem erledigt!

[Struppi]

use CGI;

Du musst das Modul natürlich auch nutzen.

my $name;
my $text1;
my $text2;
my $text3;
my $regeln;
my $senden;
my $form_daten;

$form_daten = $ENV{'QUERY_STRING'};
my ($name, $text1, $text2, $text3, $regeln, $senden) = split(/&/,$form_daten);

Heißt das, du übergibst die Daten willkürlich, nicht mit einem Formular?

üblich wäre ein Formular, das kannst du mit dem CGI Modul leicht zusammen bauen. Die Werte bekommst du dann auch mit diesem.

print CGI::header('text/plain');

Den Header darfst du nur einmal ausgeben und wenn du HTML willst, musst du natürlich auch den header entsprechend ausgeben. Steht alles in der Doku.

Ein einfaches HTML Dokument mit DOCTYPE und Kodierung sieht z.b. so aus:

#!/usr/bin/perl -w  
BEGIN {  
use CGI::Carp qw(fatalsToBrowser warningsToBrowser);  
warningsToBrowser(1);  
}  
  
use strict;  
use CGI qw(-no_xhtml);  
  
my $html_head = {  
    -dtd    => '"-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd"',  
    -title  =>'Titel',  
    -head =>  [  
    CGI::meta({-http_equiv => 'Content-Type', -content => 'text/html; charset=utf-8'}),  
    CGI::meta({-http_equiv => 'Content-Language', -content => 'de'})  
    ]  
};  
  
print CGI::header(-type=>'text/html', -charset=>'utf-8');  
print CGI::start_html($html_head);  
  
# Dein Code  
  
print CGI::end_html(); 

Struppi.