#!/usr/bin/perl use strict; read(STDIN, $Daten,, $ENV{'CONTENT_LENGTH'}); print "Content-type: text/html\n\n"; print "CGI-Reaktion\n"; print "

Reaktion des CGI-Programms

\n"; print $ENV['CONTENT_LENGT&H'}; print "\n";