#!/usr/bin/perl
use strict;
use CGI::Carp qw(fatalsToBrowser);
read(STDIN, my $Daten, $ENV{'CONTENT_LENGTH'});
my @Formularfelder = split(/&/, $Daten);
my ($Feld, $Name, $Wert);
my %Formular;
foreach $Feld (@Formularfelder) {
(my $Name, my $Wert) = split(/=/, $Feld);
$Wert =~ tr/+/ /;
$Wert =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$Wert =~ s//>/g;
$Formular{$Name} = $Wert;
}
print "Content-type: text/html\n\n";
print '', "\n";
print "Feedback\n";
print "Feedback Ihrer Eingabe vom Programm comments.pl
\n";
print "Link: $Formular{links}
\n";
print "Beschreibung: $Formular{beschreibung}
\n";
print "\n";