Just to reduce confusion, this is what it looks like now.
#!/usr/bin/perl
# This script should send an e-mail
print "Content-type:text/plain\n\n";
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
@pairs = split(/&/, $buffer);
foreach $pair (@pairs)
{
($name, $value) =...