#!/usr/bin/perl -wT use strict; print "Content-type: text/html\n\n"; # # bla bla bla # use vars qw($Fehler); $Fehler = "ungültig"; # # bla bla bla # print <<"EOT"; [b] [/b]

Kopfzeile1

EOT