#!/usr/bin/perl -w

use CGI::Carp qw(fatalsToBrowser);
use strict;
use CGI;
my $cgi = new CGI;

my $data=$cg->param('daten');

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

    use CGI::Fast qw(:standard);
    $COUNTER = 0;
    while (new CGI::Fast) {
        print header;
        print start_html("Fast CGI Rocks");
        print
            h1("Fast CGI Rocks"),
            "Invocation number ",b($COUNTER++),
            " PID ",b($$),".",
            hr;
        print end_html;
    }