use strict errors?

[RDWest Sr.]

hi yall,
         maybe i been up too long...   i'm confused with this...    script works fine 
but returns errors with use strict...
could someone plz explain what i'm doing wrong?
tx
#!perl
use strict;


print "Content-type: text/html\n\n";
#*****************************************************************#
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;

 if ($INPUT{$name}) { 
  $INPUT{$name} = $INPUT{$name}.",".$value; }

 else { 
  $INPUT{$name} = $value; }
  $value =~ s/<!--(.|\n)*-->//g;
 }

if   ($INPUT{'signup'}) { &signup; } 
elsif  ($INPUT{'lostid'})  { &lostid; }
else {&html_home; }
exit;


sub signup {
#*****************************************************************#
print qq~ sub signup ~;
}


sub lostid {
#*****************************************************************#
print qq~ sub lostid ~;
}

sub html_home {
#*****************************************************************#
print qq~ sub html_home ~;
}

****************
Regards,
RDWest Sr.
http://GSP-Live.com
****************