12345678910
#!/usr/bin/perluse strict;use warnings;use CGI::Carp qw(fatalsToBrowser warningsToBrowser);my $Daten; # Variablen immer deklarierenread(STDIN, $Daten, $ENV{'CONTENT_LENGTH'});open(COMMENTS, ">>data.txt") or die $!;