#!/usr/bin/perl
use warnings;
use strict;
use CGI;
use CGI::Carp qw(fatalsToBrowser);
open(PRINTIT,">/usr/local/daten.txt");
print PRINTIT "foo";
close(PRINTIT);
my $cgi = CGI->new();
my %Formular = $cgi->Vars();
print $cgi->header(-type => 'text/html');
print '', "\n";
print "CGI-Feedback\n";
print "CGI-Feedback vom Programm comments.pl
\n";
print "Name: $Formular{AnwenderName}
\n";
[...]