variables not posting?

stuffy has asked for the wisdom of the Perl Monks concerning the following question:

Before anyone rips me for not using CGI, I want to let it be known that I am unable to use CGI for this application due to the server I will be using it on. I am using CGI::CARP on the server I am testing it on to try to find my problems. I am trying to Post some information to the CGI, but I get a software error. It appears if I am not reading the Post correctly. The form is located stuffy's form and the code is below

#!/usr/bin/perl 
use CGI::Carp qw(fatalsToBrowser);

read (STDIN,my($temp), $ENV{'CONTENT_LENGTH'});
my (@pairs) =split(/&/,$temp);
my($item) = "";
foreach $item(@pairs) {
        my($key,$content) =split (/=/, $item, 2);
        $content=~tr/+/ /;
        $content=~s/%(..)/pack("c",hex($1))/ge;
        my($fields{$key})=$content;
}

print "Content-type: text/html\n\n";
print "<HTML>\n";
print "<HEAD>\n";
print "<TITLE>This is a test of the stuffy perl network</TITLE>\n";
print "</HEAD>\n";
print "<BODY>\n";       
print "$fields{tool}\n";
print "$fields{month}\n";
print "$fields{date}, $fields{month}\n";
print "</BODY>\n</HTML>";
[download]

If my link did not work here is the url:
http://www.slpproductions.com/prob.html
I'm sure this is an easy problem, just something I'm overlooking. If so, please go easy on me, I'm a newbie.
Stuffy

Back to Seekers of Perl Wisdom