if ($ENV{'REQUEST_METHOD'} eq 'POST') {

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

    @pairs = split(/&/, $buffer);

    foreach $pair (@pairs) {
       ($name, $value) = split(/=/, $pair);
       $value =~ tr/+/ /;
       $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;

    $FORM{$name} = $value;
    }

##</code><code>##

 open (MESSAGE,"| /usr/lib/sendmail -t");

    print MESSAGE "To: $FORM{submitaddress}\n";
    print MESSAGE "From: $FORM{name}\n";
    print MESSAGE "Reply-To: $FORM{email}\n";

    print MESSAGE "Subject: Faculty Bibliography Submission\n\n";
    print MESSAGE "The following information was submitted from $FORM{name} at $FORM{email}:\n\n";
    print MESSAGE "Full Name: $FORM{name}";
    print MESSAGE "\n";
    print MESSAGE "Publication Name: $FORM{pubname}";
    print MESSAGE "\n";
    print MESSAGE "Other Authors: $FORM{otherauthors}";
    print MESSAGE "\n";
    print MESSAGE "Other Editors: $FORM{othereditors}";
    print MESSAGE "\n";
    print MESSAGE "Main Publication Title: $FORM{pubtitle}";
    print MESSAGE "\n";
    .
    .
    .
    .
    close (MESSAGE);