Danke für's Fedback

#!/usr/local/bin/perl

$mailprog = '/usr/lib/sendmail';
$recipient = 'FaxMaster@chemnitz.debis-sfi.de';

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

print "<Head><Title>Danke f&uuml;r's Fedback</Title></Head>\n";
print "<Body Background=\"/~mha/pictures/ringbuch.jpg\">\n";
print "<TABLE BORDER=0 WIDTH=100%><TR>\n";
print "<TD>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</TD>\n";
print "<TD>\n<HR><H1>Danke f&uuml;r's Fedback</H1>\n";


read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});

# Split the name-value pairs
@pairs = split(/&/, $buffer);
foreach $pair (@pairs)
{
    ($name, $value) = split(/=/, $pair);

    # Un-Webify plus signs and %-encoding
    $value =~ tr/+/ /;
    $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;

    # Stop people from using subshells to execute commands
    # Not a big deal when using sendmail, but very important
    # when using UCB mail (aka mailx).
    # $value =~ s/~!/ ~!/g; 

    $FORM{$name} = $value;
}

&blank_response unless $FORM{'comments'};

open (MAIL, "|$mailprog $recipient") || die "Can't open $mailprog!\n";
print MAIL "Reply-to: $FORM{'username'} ($FORM{'realname'})\n";
print MAIL "To: FaxAdmin\@chemnitz.debis-sfi.de\n";
print MAIL "Subject: Fax comments (Forms submission)\n\n";
print MAIL "$FORM{'username'} ($FORM{'realname'}) sendete folgenden\n";
print MAIL "Kommentar ueber den debis Chemnitz FaxServer:\n\n";
print MAIL  "------------------------------------------------------------\n";
print MAIL "$FORM{'comments'}";
print MAIL "\n------------------------------------------------------------\n";
print MAIL "Server protocol: $ENV{'SERVER_PROTOCOL'}\n";
print MAIL "Remote host: $ENV{'REMOTE_HOST'}\n";
print MAIL "Remote IP address: $ENV{'REMOTE_ADDR'}\n";
close (MAIL);

print "Danke f&uuml;r die R&uuml;ckmeldung.<BR>";
print "Ihre Nachricht wurde gesendet.<P>";
print "<HR>\n<ADDRESS>\nChemnitz FaxServer; ",`date`,"\n</ADDRESS>\n";
print "</TD></TABLE>\n";

sub blank_response
{
    print "Der nicht vorhandene Kommentar wird nicht gesendet. Witz-Mail brauche ich nicht.";
    print "<HR>\n<ADDRESS>\nChemnitz FaxServer; ",`date`,"\n</ADDRESS>\n";
    exit;
}