Use of uninitialized value in read at conf.pl line 22.
Use of uninitialized value in string eq at script.pl line 34.
Use of uninitialized value in pattern match (m//) at script.pl line 52.

##</code><code>##


conf.pl line 22: 
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});

script.pl line 34:  if ((! $name{'age'}) || ($name{'age'} eq "")) {

script.pl line 52:  my ($query) = $ENV{'QUERY_STRING'};
	if ($query =~ /^login/) { ....bla bla ... }